#load("vcomball20210902.Rda")
load(path(here::here("InitalDataCleaning/Data/vcomball20210902.Rda")))
d <- vcomball
# load("vsurvall20210902.Rda")
# d <- vsurvall
#load("vsiteid20210601.Rda")
new.d <- data.frame(matrix(ncol=0, nrow=nrow(d)))
new.d.1 <- data.frame(matrix(ncol=0, nrow=nrow(d)))
SITE ID
- Codes(based on Surveyid)
- 10 Greater CA
- 20 Georgia
- 25 North Carolina
- 30 Northern CA
- 40 Louisiana
- 50 New Jersey
- 60 Detroit
- 61 Michigan
- 70 Texas
- 80 Los Angeles County
- 81 USC-Other
- 82 USC-MEC
- 90 New York
- 94 Florida
- 95 WebRecruit-Limbo
- 99 WebRecruit
siteid <- as.factor(trimws(d[,"siteid"]))
#new.d.n <- data.frame(new.d.n, siteid) # keep NAACCR coding
levels(siteid)[levels(siteid)=="80"] <- "Los Angeles County.80"
levels(siteid)[levels(siteid)=="30"] <- "Northern CA.30"
levels(siteid)[levels(siteid)=="10"] <- "Greater CA.10"
levels(siteid)[levels(siteid)=="60"] <- "Detroit.60"
levels(siteid)[levels(siteid)=="40"] <- "Louisiana.40"
levels(siteid)[levels(siteid)=="20"] <- "Georgia.20"
levels(siteid)[levels(siteid)=="61"] <- "Michigan.61"
levels(siteid)[levels(siteid)=="50"] <- "New Jersey.50"
levels(siteid)[levels(siteid)=="70"] <- "Texas.70"
levels(siteid)[levels(siteid)=="99"] <- "WebRecruit.99"
levels(siteid)[levels(siteid)=="21"] <- "Georgia.21"
levels(siteid)[levels(siteid)=="81"] <- "USC Other.81"
levels(siteid)[levels(siteid)=="82"] <- "USC MEC.82"
siteid_new<- siteid
d<-data.frame(d, siteid_new)
new.d <- data.frame(new.d, siteid)
new.d <- apply_labels(new.d, siteid = "Site ID")
new.d.1 <- data.frame(new.d.1, siteid)
siteid_count<-count(new.d$siteid)
colnames(siteid_count)<- c("Registry", "Total")
kable(siteid_count, format = "simple", align = 'l', caption = "Overview of all Registries")
d<-d[which(d$siteid_new == params$site),]
new.d <- data.frame(matrix(ncol=0, nrow=nrow(d)))
#new.d<-new.d[which(new.d$siteid == params$site),]
SURVEY ID
- Scantron assigned SurveyID
surveyid <- as.factor(d[,"surveyid"])
isDup <- duplicated(surveyid)
numDups <- sum(isDup)
dups <- surveyid[isDup]
new.d <- data.frame(new.d, surveyid)
new.d <- apply_labels(new.d, surveyid = "Survey ID")
print(paste("Number of duplicates:", numDups))
## [1] "Number of duplicates: 0"
print("The following are duplicated IDs:")
## [1] "The following are duplicated IDs:"
print(dups)
## factor(0)
## 241 Levels: 600004 600019 600021 600031 600032 600042 600056 600057 600066 600107 600114 600115 ... 602139
print("Number of NAs:")
## [1] "Number of NAs:"
print(sum(is.na(new.d$surveyid)))
## [1] 0
LOCATION NAME
- Name of Registry delivery location
locationname <- as.factor(d[,"locationname"])
new.d <- data.frame(new.d, locationname)
new.d <- apply_labels(new.d, locationname = "Recruitment Location")
temp.d <- data.frame (new.d, locationname)
result<-questionr::freq(temp.d$locationname, total = TRUE)
#Create a NICE table
kable(result, format = "simple", align = 'l', caption = "Overview of Registry delivery location")
Overview of Registry delivery location
| Detroit |
241 |
100 |
100 |
| Total |
241 |
100 |
100 |
RESPOND ID
- From Barcode label put on last page of survey by registries, identifies participant. ResponseID is assigned by the registries.
respondid <- as.factor(d[,"respondid"])
#remove NAs in respondid in order to avoid showing NAs in duplicated values
respondid_rm<-respondid[!is.na(respondid)]
isDup <- duplicated(respondid_rm)
numDups <- sum(isDup)
dups <- respondid_rm[isDup]
new.d <- data.frame(new.d, respondid)
new.d <- apply_labels(new.d, respondid = "RESPOND ID")
print(paste("Number of duplicates:", numDups))
## [1] "Number of duplicates: 0"
print("The following are duplicated IDs:")
## [1] "The following are duplicated IDs:"
print(dups)
## factor(0)
## 241 Levels: 60100006 60100016 60100018 60100025 60100036 60100037 60100038 60100057 60100058 60100059 ... 60102638
print("Number of NAs:")
## [1] "Number of NAs:"
print(sum(is.na(new.d$respondid)))
## [1] 0
METHODOLOGY
- How survey was completed
- P=Paper
- O=Online complete
st_css()
methodology <- as.factor(d[,"methodology"])
levels(methodology) <- list(Paper="P",
Online="O")
methodology <- ordered(methodology, c("Paper", "Online"))
new.d <- data.frame(new.d, methodology)
new.d <- apply_labels(new.d, methodology = "Methodology for Survey Completion")
temp.d <- data.frame (new.d, methodology)
result<-questionr::freq(temp.d$methodology, total = TRUE)
kable(result, format = "simple", align = 'l')
| Paper |
241 |
100 |
100 |
| Online |
0 |
0 |
0 |
| Total |
241 |
100 |
100 |
A1: Date of diagnosis
- A1. In what month and year were you first diagnosed with prostate cancer?
# a1month
a1month <- as.factor(d[,"a1month"])
new.d <- data.frame(new.d, a1month)
new.d <- apply_labels(new.d, a1month = "Month Diagnosed")
temp.d <- data.frame (new.d, a1month)
result<-questionr::freq(temp.d$a1month, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A1:month diagnosed")
A1:month diagnosed
| 1 |
16 |
6.6 |
7.8 |
| 10 |
16 |
6.6 |
7.8 |
| 11 |
9 |
3.7 |
4.4 |
| 12 |
16 |
6.6 |
7.8 |
| 18 |
1 |
0.4 |
0.5 |
| 2 |
13 |
5.4 |
6.3 |
| 3 |
24 |
10.0 |
11.7 |
| 32 |
1 |
0.4 |
0.5 |
| 4 |
18 |
7.5 |
8.7 |
| 5 |
9 |
3.7 |
4.4 |
| 6 |
30 |
12.4 |
14.6 |
| 7 |
18 |
7.5 |
8.7 |
| 8 |
16 |
6.6 |
7.8 |
| 9 |
19 |
7.9 |
9.2 |
| NA |
35 |
14.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
#count<-as.data.frame(table(new.d$a1month))
#colnames(count)<- c("a1month", "Total")
#freq1<-table(new.d$a1month)
#freq<-as.data.frame(round(prop.table(freq1),3))
#colnames(freq)<- c("a1month", "Freq")
#result<-merge(count, freq,by="a1month",sort=F)
#kable(result, format = "simple", align = 'l', caption = "A1:month diagnosed")
#a1year
tmp<-d[,"a1year"]
tmp[tmp=="15"]<-"2015"
a1year <- as.factor(tmp)
#levels(a1year)[levels(a1year)=="15"] <- "2015"
#a1year[a1year=="15"] <- "2015" # change "15" to "2015"
#a1year <- as.Date(a1year, format = "%Y")
#a1year <- relevel(a1year, ref="1914")
new.d <- data.frame(new.d, a1year)
new.d <- apply_labels(new.d, a1year = "Year Diagnosed")
temp.d <- data.frame (new.d, a1year)
result<-questionr::freq(temp.d$a1year, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A1:year diagnosed")
A1:year diagnosed
| 1914 |
1 |
0.4 |
0.5 |
| 1915 |
1 |
0.4 |
0.5 |
| 1917 |
1 |
0.4 |
0.5 |
| 1918 |
1 |
0.4 |
0.5 |
| 1937 |
1 |
0.4 |
0.5 |
| 1947 |
1 |
0.4 |
0.5 |
| 1948 |
1 |
0.4 |
0.5 |
| 1950 |
1 |
0.4 |
0.5 |
| 1963 |
2 |
0.8 |
0.9 |
| 1997 |
1 |
0.4 |
0.5 |
| 1998 |
1 |
0.4 |
0.5 |
| 20 |
1 |
0.4 |
0.5 |
| 2007 |
1 |
0.4 |
0.5 |
| 2011 |
1 |
0.4 |
0.5 |
| 2012 |
1 |
0.4 |
0.5 |
| 2013 |
1 |
0.4 |
0.5 |
| 2014 |
9 |
3.7 |
4.1 |
| 2015 |
35 |
14.5 |
16.1 |
| 2016 |
51 |
21.2 |
23.4 |
| 2017 |
53 |
22.0 |
24.3 |
| 2018 |
43 |
17.8 |
19.7 |
| 2019 |
9 |
3.7 |
4.1 |
| 2021 |
1 |
0.4 |
0.5 |
| NA |
23 |
9.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
#a1not
# 1=I have NEVER had prostate cancer
# 2=I HAVE or HAVE HAD prostate cancer
# (paper survey only had a bubble for “never had” so value set to 2 if bubble not marked)"
a1not <- as.factor(d[,"a1not"])
levels(a1not) <- list(NEVER_had_ProstateCancer="1",
HAVE_had_ProstateCancer="2")
new.d <- data.frame(new.d, a1not)
new.d <- apply_labels(new.d, a1not = "Not Diagnosed")
temp.d <- data.frame (new.d, a1not)
result<-questionr::freq(temp.d$a1not, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A1:not diagnosed")
A1:not diagnosed
| NEVER_had_ProstateCancer |
1 |
0.4 |
0.4 |
| HAVE_had_ProstateCancer |
240 |
99.6 |
99.6 |
| Total |
241 |
100.0 |
100.0 |
A2: Identify as AA
- A2. Do you identify as Black or African American?
a2 <- as.factor(d[,"a2"])
# Make "*" to NA
a2[which(a2=="*")]<-"NA"
levels(a2) <- list(No="1",
Yes="2")
a2 <- ordered(a2, c("Yes","No"))
new.d <- data.frame(new.d, a2)
new.d <- apply_labels(new.d, a2 = "Month Diagnosed")
temp.d <- data.frame (new.d, a2)
result<-questionr::freq(temp.d$a2, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A2")
A2
| Yes |
227 |
94.2 |
99.1 |
| No |
2 |
0.8 |
0.9 |
| NA |
12 |
5.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
A3: Black or African American group
- A3. If Yes: A2. Which Black or African American group(s) and other races/ethnicities do you identify with? Mark all that apply.
- A3_1: 1=Black/African American
- A3_2: 1=Nigerian
- A3_3: 1=Jamaican
- A3_4: 1=Ethiopian
- A3_5: 1=Haitian
- A3_6: 1=Somali
- a3_7: 1=Guyanese
- A3_8: 1=Creole
- A3_9: 1=West Indian
- A3_10: 1=Caribbean
- A3_11: 1=White
- A3_12: 1=Asian/Asian American
- A3_13: 1=Native American or American Indian or Alaskan Native
- A3_14: 1=Middle Eastern or North African
- A3_15: 1=Native Hawaiian or Pacific Islander
- A3_16: 1=Hispanic
- A3_17: 1=Latino
- A3_18: 1=Spanish
- A3_19: 1=Mexican/Mexican American
- A3_20: 1=Salvadoran
- A3_21: 1=Puerto Rican
- A3_22: 1=Dominican
- A3_23: 1=Columbian
- A3_24: 1=Other
a3_1 <- as.factor(d[,"a3_1"])
levels(a3_1) <- list(Black_African_American="1")
new.d <- data.frame(new.d, a3_1)
new.d <- apply_labels(new.d, a3_1 = "Black_African_American")
temp.d <- data.frame (new.d, a3_1)
result<-questionr::freq(temp.d$a3_1, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Black_African_American")
1. Black_African_American
| Black_African_American |
236 |
97.9 |
100 |
| NA |
5 |
2.1 |
NA |
| Total |
241 |
100.0 |
100 |
a3_2 <- as.factor(d[,"a3_2"])
levels(a3_2) <- list(Nigerian="1")
new.d <- data.frame(new.d, a3_2)
new.d <- apply_labels(new.d, a3_2 = "Nigerian")
temp.d <- data.frame (new.d, a3_2)
result<-questionr::freq(temp.d$a3_2, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Nigerian")
2. Nigerian
| Nigerian |
3 |
1.2 |
100 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100 |
a3_3 <- as.factor(d[,"a3_3"])
levels(a3_3) <- list(Jamaican="1")
new.d <- data.frame(new.d, a3_3)
new.d <- apply_labels(new.d, a3_3 = "Jamaican")
temp.d <- data.frame (new.d, a3_3)
result<-questionr::freq(temp.d$a3_3, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Jamaican")
3. Jamaican
| Jamaican |
3 |
1.2 |
100 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100 |
a3_4 <- as.factor(d[,"a3_4"])
levels(a3_4) <- list(Ethiopian="1")
new.d <- data.frame(new.d, a3_4)
new.d <- apply_labels(new.d, a3_4 = "Ethiopian")
temp.d <- data.frame (new.d, a3_4)
result<-questionr::freq(temp.d$a3_4, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Ethiopian")
4. Ethiopian
| Ethiopian |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
a3_5 <- as.factor(d[,"a3_5"])
levels(a3_5) <- list(Haitian="1")
new.d <- data.frame(new.d, a3_5)
new.d <- apply_labels(new.d, a3_5 = "Haitian")
temp.d <- data.frame (new.d, a3_5)
result<-questionr::freq(temp.d$a3_5, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Haitian")
5. Haitian
| Haitian |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_6 <- as.factor(d[,"a3_6"])
levels(a3_6) <- list(Somali="1")
new.d <- data.frame(new.d, a3_6)
new.d <- apply_labels(new.d, a3_6 = "Somali")
temp.d <- data.frame (new.d, a3_6)
result<-questionr::freq(temp.d$a3_6, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "6. Somali")
6. Somali
| Somali |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_7 <- as.factor(d[,"a3_7"])
levels(a3_7) <- list(Guyanese="1")
new.d <- data.frame(new.d, a3_7)
new.d <- apply_labels(new.d, a3_7 = "Guyanese")
temp.d <- data.frame (new.d, a3_7)
result<-questionr::freq(temp.d$a3_7, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "7. Guyanese")
7. Guyanese
| Guyanese |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_8 <- as.factor(d[,"a3_8"])
levels(a3_8) <- list(Creole="1")
new.d <- data.frame(new.d, a3_8)
new.d <- apply_labels(new.d, a3_8 = "Creole")
temp.d <- data.frame (new.d, a3_8)
result<-questionr::freq(temp.d$a3_8, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "8. Creole")
8. Creole
| Creole |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
a3_9 <- as.factor(d[,"a3_9"])
levels(a3_9) <- list(West_Indian="1")
new.d <- data.frame(new.d, a3_9)
new.d <- apply_labels(new.d, a3_9 = "West_Indian")
temp.d <- data.frame (new.d, a3_9)
result<-questionr::freq(temp.d$a3_9, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "9. West_Indian")
9. West_Indian
| West_Indian |
5 |
2.1 |
100 |
| NA |
236 |
97.9 |
NA |
| Total |
241 |
100.0 |
100 |
a3_10 <- as.factor(d[,"a3_10"])
levels(a3_10) <- list(Caribbean="1")
new.d <- data.frame(new.d, a3_10)
new.d <- apply_labels(new.d, a3_10 = "Caribbean")
temp.d <- data.frame (new.d, a3_10)
result<-questionr::freq(temp.d$a3_10, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "10. Caribbean")
10. Caribbean
| Caribbean |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
a3_11 <- as.factor(d[,"a3_11"])
levels(a3_11) <- list(White="1")
new.d <- data.frame(new.d, a3_11)
new.d <- apply_labels(new.d, a3_11 = "White")
temp.d <- data.frame (new.d, a3_11)
result<-questionr::freq(temp.d$a3_11, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "11. White")
11. White
| White |
3 |
1.2 |
100 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100 |
a3_12 <- as.factor(d[,"a3_12"])
levels(a3_12) <- list(Asian="1")
new.d <- data.frame(new.d, a3_12)
new.d <- apply_labels(new.d, a3_12 = "Asian")
temp.d <- data.frame (new.d, a3_12)
result<-questionr::freq(temp.d$a3_12, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "12. Asian")
12. Asian
| Asian |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_13 <- as.factor(d[,"a3_13"])
levels(a3_13) <- list(Native_Indian="1")
new.d <- data.frame(new.d, a3_13)
new.d <- apply_labels(new.d, a3_13 = "Native_Indian")
temp.d <- data.frame (new.d, a3_13)
result<-questionr::freq(temp.d$a3_13, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "13. Native_Indian")
13. Native_Indian
| Native_Indian |
4 |
1.7 |
100 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
a3_14 <- as.factor(d[,"a3_14"])
levels(a3_14) <- list(Middle_Eastern_North_African="1")
new.d <- data.frame(new.d, a3_14)
new.d <- apply_labels(new.d, a3_14 = "Middle_Eastern_North_African")
temp.d <- data.frame (new.d, a3_14)
result<-questionr::freq(temp.d$a3_14, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "14. Middle_Eastern_North_African")
14. Middle_Eastern_North_African
| Middle_Eastern_North_African |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_15 <- as.factor(d[,"a3_15"])
levels(a3_15) <- list(Native_Hawaiian_Pacific_Islander="1")
new.d <- data.frame(new.d, a3_15)
new.d <- apply_labels(new.d, a3_15 = "Native_Hawaiian_Pacific_Islander")
temp.d <- data.frame (new.d, a3_15)
result<-questionr::freq(temp.d$a3_15, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "15. Native_Hawaiian_Pacific_Islander")
15. Native_Hawaiian_Pacific_Islander
| Native_Hawaiian_Pacific_Islander |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_16 <- as.factor(d[,"a3_16"])
levels(a3_16) <- list(Hispanic="1")
new.d <- data.frame(new.d, a3_16)
new.d <- apply_labels(new.d, a3_16 = "Hispanic")
temp.d <- data.frame (new.d, a3_16)
result<-questionr::freq(temp.d$a3_16, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "16. Hispanic")
16. Hispanic
| Hispanic |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_17 <- as.factor(d[,"a3_17"])
levels(a3_17) <- list(Latino="1")
new.d <- data.frame(new.d, a3_17)
new.d <- apply_labels(new.d, a3_17 = "Latino")
temp.d <- data.frame (new.d, a3_17)
result<-questionr::freq(temp.d$a3_17, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "17. Latino")
17. Latino
| Latino |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_18 <- as.factor(d[,"a3_18"])
levels(a3_18) <- list(Spanish="1")
new.d <- data.frame(new.d, a3_18)
new.d <- apply_labels(new.d, a3_18 = "Spanish")
temp.d <- data.frame (new.d, a3_18)
result<-questionr::freq(temp.d$a3_18, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "18. Spanish")
18. Spanish
| Spanish |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_19 <- as.factor(d[,"a3_19"])
levels(a3_19) <- list(Mexican="1")
new.d <- data.frame(new.d, a3_19)
new.d <- apply_labels(new.d, a3_19 = "Mexican")
temp.d <- data.frame (new.d, a3_19)
result<-questionr::freq(temp.d$a3_19, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "19. Mexican")
19. Mexican
| Mexican |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_20 <- as.factor(d[,"a3_20"])
levels(a3_20) <- list(Salvadoran="1")
new.d <- data.frame(new.d, a3_20)
new.d <- apply_labels(new.d, a3_20 = "Salvadoran")
temp.d <- data.frame (new.d, a3_20)
result<-questionr::freq(temp.d$a3_20, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "20. Salvadoran")
20. Salvadoran
| Salvadoran |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_21 <- as.factor(d[,"a3_21"])
levels(a3_21) <- list(Puerto_Rican="1")
new.d <- data.frame(new.d, a3_21)
new.d <- apply_labels(new.d, a3_21 = "Puerto_Rican")
temp.d <- data.frame (new.d, a3_21)
result<-questionr::freq(temp.d$a3_21, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "21. Puerto_Rican")
21. Puerto_Rican
| Puerto_Rican |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
a3_22 <- as.factor(d[,"a3_22"])
levels(a3_22) <- list(Dominican="1")
new.d <- data.frame(new.d, a3_22)
new.d <- apply_labels(new.d, a3_22 = "Dominican")
temp.d <- data.frame (new.d, a3_22)
result<-questionr::freq(temp.d$a3_22, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "22. Dominican")
22. Dominican
| Dominican |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_23 <- as.factor(d[,"a3_23"])
levels(a3_23) <- list(Columbian="1")
new.d <- data.frame(new.d, a3_23)
new.d <- apply_labels(new.d, a3_23 = "Columbian")
temp.d <- data.frame (new.d, a3_23)
result<-questionr::freq(temp.d$a3_23, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "23. Columbian")
23. Columbian
| Columbian |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
a3_24 <- as.factor(d[,"a3_24"])
levels(a3_23) <- list(Other="1")
new.d <- data.frame(new.d, a3_24)
new.d <- apply_labels(new.d, a3_24 = "Other")
temp.d <- data.frame (new.d, a3_24)
result<-questionr::freq(temp.d$a3_24, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "24. Other")
24. Other
| 1 |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
A3 Other: Black or African American group
a3other <- d[,"a3other"]
new.d <- data.frame(new.d, a3other)
new.d <- apply_labels(new.d, a3other = "A3Other")
temp.d <- data.frame (new.d, a3other)
result<-questionr::freq(temp.d$a3other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A3Other")
A3Other
| Black Man |
1 |
0.4 |
25 |
| Cape Verdean |
1 |
0.4 |
25 |
| Hebrew Israelite. |
1 |
0.4 |
25 |
| Negro |
1 |
0.4 |
25 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
A4: Month and year of birth
A4. What is your month and year of birth?
# a4month
a4month <- as.factor(d[,"a4month"])
new.d <- data.frame(new.d, a4month)
new.d <- apply_labels(new.d, a4month = "Month of birth")
temp.d <- data.frame (new.d, a4month)
result<-questionr::freq(temp.d$a4month, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A4: Month of birth")
A4: Month of birth
| 1 |
20 |
8.3 |
8.3 |
| 10 |
25 |
10.4 |
10.4 |
| 11 |
14 |
5.8 |
5.8 |
| 12 |
13 |
5.4 |
5.4 |
| 18 |
1 |
0.4 |
0.4 |
| 2 |
17 |
7.1 |
7.1 |
| 3 |
14 |
5.8 |
5.8 |
| 4 |
23 |
9.5 |
9.6 |
| 5 |
14 |
5.8 |
5.8 |
| 6 |
22 |
9.1 |
9.2 |
| 7 |
23 |
9.5 |
9.6 |
| 71 |
1 |
0.4 |
0.4 |
| 8 |
27 |
11.2 |
11.2 |
| 9 |
26 |
10.8 |
10.8 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
#a4year
a4year <- as.factor(d[,"a4year"])
new.d <- data.frame(new.d, a4year)
new.d <- apply_labels(new.d, a4year = "Year of birth")
temp.d <- data.frame (new.d, a4year)
result<-questionr::freq(temp.d$a4year, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A4: Year of birth")
A4: Year of birth
| 1937 |
2 |
0.8 |
0.8 |
| 1939 |
3 |
1.2 |
1.2 |
| 1940 |
2 |
0.8 |
0.8 |
| 1941 |
4 |
1.7 |
1.7 |
| 1942 |
5 |
2.1 |
2.1 |
| 1943 |
7 |
2.9 |
2.9 |
| 1944 |
5 |
2.1 |
2.1 |
| 1945 |
7 |
2.9 |
2.9 |
| 1946 |
9 |
3.7 |
3.7 |
| 1947 |
10 |
4.1 |
4.1 |
| 1948 |
5 |
2.1 |
2.1 |
| 1949 |
13 |
5.4 |
5.4 |
| 1950 |
12 |
5.0 |
5.0 |
| 1951 |
8 |
3.3 |
3.3 |
| 1952 |
9 |
3.7 |
3.7 |
| 1953 |
6 |
2.5 |
2.5 |
| 1954 |
14 |
5.8 |
5.8 |
| 1955 |
15 |
6.2 |
6.2 |
| 1956 |
19 |
7.9 |
7.9 |
| 1957 |
17 |
7.1 |
7.1 |
| 1958 |
9 |
3.7 |
3.7 |
| 1959 |
6 |
2.5 |
2.5 |
| 1960 |
12 |
5.0 |
5.0 |
| 1961 |
9 |
3.7 |
3.7 |
| 1962 |
8 |
3.3 |
3.3 |
| 1963 |
7 |
2.9 |
2.9 |
| 1964 |
4 |
1.7 |
1.7 |
| 1965 |
2 |
0.8 |
0.8 |
| 1966 |
4 |
1.7 |
1.7 |
| 1967 |
2 |
0.8 |
0.8 |
| 1968 |
1 |
0.4 |
0.4 |
| 1970 |
2 |
0.8 |
0.8 |
| 1973 |
1 |
0.4 |
0.4 |
| 1977 |
1 |
0.4 |
0.4 |
| 663 |
1 |
0.4 |
0.4 |
| Total |
241 |
100.0 |
100.0 |
A5: Where were you born
- A5. Where were you born?
- 1=United States (includes Hawaii and US territories)
- 2=Africa
- 3=Cuba or Caribbean Islands
- 4=Other
a5 <- as.factor(d[,"a5"])
# Make "*" to NA
a5[which(a5=="*")]<-"NA"
levels(a5) <- list(US="1",
Africa="2",
Cuba_Caribbean= "3",
Other="4")
a5 <- ordered(a5, c("US","Africa","Cuba_Caribbean","Other"))
new.d <- data.frame(new.d, a5)
new.d <- apply_labels(new.d, a5 = "Born place")
temp.d <- data.frame (new.d, a5)
result<-questionr::freq(temp.d$a5, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A5: Where were you born?")
A5: Where were you born?
| US |
238 |
98.8 |
99.2 |
| Africa |
1 |
0.4 |
0.4 |
| Cuba_Caribbean |
1 |
0.4 |
0.4 |
| Other |
0 |
0.0 |
0.0 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
A5 Other: Where were you born
a5other <- d[,"a5other"]
new.d <- data.frame(new.d, a5other)
new.d <- apply_labels(new.d, a5other = "a5other")
temp.d <- data.frame (new.d, a5other)
result<-questionr::freq(temp.d$a5other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A5Other")
A5Other
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
A6: Biological father born
- A6. Where was your biological father born?
- 1=United States (includes Hawaii and US territories)
- 2=Africa
- 3=Cuba or Caribbean Islands
- 4=Other
a6 <- as.factor(d[,"a6"])
# Make "*" to NA
a6[which(a6=="*")]<-"NA"
levels(a6) <- list(US="1",
Africa="2",
Cuba_Caribbean= "3",
Other="4")
a6 <- ordered(a6, c("US","Africa","Cuba_Caribbean","Other"))
new.d <- data.frame(new.d, a6)
new.d <- apply_labels(new.d, a6 = "Born place")
temp.d <- data.frame (new.d, a6)
result<-questionr::freq(temp.d$a6, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a6: Where were you born?")
a6: Where were you born?
| US |
233 |
96.7 |
98.3 |
| Africa |
1 |
0.4 |
0.4 |
| Cuba_Caribbean |
2 |
0.8 |
0.8 |
| Other |
1 |
0.4 |
0.4 |
| NA |
4 |
1.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
A6 Other: Biological father born
a6other <- d[,"a6other"]
new.d <- data.frame(new.d, a6other)
new.d <- apply_labels(new.d, a6other = "a6other")
temp.d <- data.frame (new.d, a6other)
result<-questionr::freq(temp.d$a6other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A6Other")
A6Other
| Canada. |
1 |
0.4 |
50 |
| Unknown |
1 |
0.4 |
50 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
A7: Biological mother born
- A7. Where was your biological mother born?
- 1=United States (includes Hawaii and US territories)
- 2=Africa
- 3=Cuba or Caribbean Islands
- 4=Other
a7 <- as.factor(d[,"a7"])
# Make "*" to NA
a7[which(a7=="*")]<-"NA"
levels(a7) <- list(US="1",
Africa="2",
Cuba_Caribbean= "3",
Other="4")
a7 <- ordered(a7, c("US","Africa","Cuba_Caribbean","Other"))
new.d <- data.frame(new.d, a7)
new.d <- apply_labels(new.d, a7 = "Born place")
temp.d <- data.frame (new.d, a7)
result<-questionr::freq(temp.d$a7, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a7: Where were you born?")
a7: Where were you born?
| US |
235 |
97.5 |
98.3 |
| Africa |
1 |
0.4 |
0.4 |
| Cuba_Caribbean |
2 |
0.8 |
0.8 |
| Other |
1 |
0.4 |
0.4 |
| NA |
2 |
0.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
A7 Other: Biological father born
a7other <- d[,"a7other"]
new.d <- data.frame(new.d, a7other)
new.d <- apply_labels(new.d, a7other = "a7other")
temp.d <- data.frame (new.d, a7other)
result<-questionr::freq(temp.d$a7other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A7Other")
A7Other
| Canada. |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
A8: Years lived in the US
- A8. How many years have you lived in the United States?
- 1=15 years or less
- 2=16-25 years
- 3=My whole life or more than 25 years
a8 <- as.factor(d[,"a8"])
# Make "*" to NA
a8[which(a8=="*")]<-"NA"
levels(a8) <- list(less_or_15="1",
years_16_25="2",
more_than_25_or_whole_life= "3")
a8 <- ordered(a8, c("less_or_15","years_16_25","more_than_25_or_whole_life"))
new.d <- data.frame(new.d, a8)
new.d <- apply_labels(new.d, a8 = "Years lived in the US")
temp.d <- data.frame (new.d, a8)
result<-questionr::freq(temp.d$a8, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "A8")
A8
| less_or_15 |
0 |
0.0 |
0.0 |
| years_16_25 |
1 |
0.4 |
0.4 |
| more_than_25_or_whole_life |
228 |
94.6 |
99.6 |
| NA |
12 |
5.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
B1A: Father
- B1Aa: Father: Has this person had prostate cancer?
- B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?
- B1Ac: Father: Did he (or any) die of prostate cancer?
# B1Aa: Father: Has this person had prostate cancer?
b1aa <- as.factor(d[,"b1aa"])
# Make "*" to NA
b1aa[which(b1aa=="*")]<-"NA"
levels(b1aa) <- list(No="1",
Yes="2",
Dont_know="88")
b1aa <- ordered(b1aa, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1aa)
new.d <- apply_labels(new.d, b1aa = "Father")
temp.d <- data.frame (new.d, b1aa)
result<-questionr::freq(temp.d$b1aa,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Aa: Father: Has this person had prostate cancer?")
B1Aa: Father: Has this person had prostate cancer?
| No |
135 |
56.0 |
58.4 |
| Yes |
41 |
17.0 |
17.7 |
| Dont_know |
55 |
22.8 |
23.8 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?
b1ab <- as.factor(d[,"b1ab"])
# Make "*" to NA
b1ab[which(b1ab=="*")]<-"NA"
levels(b1ab) <- list(No="1",
Yes="2",
Dont_know="88")
b1ab <- ordered(b1ab, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ab)
new.d <- apply_labels(new.d, b1ab = "Father")
temp.d <- data.frame (new.d, b1ab)
result<-questionr::freq(temp.d$b1ab,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?")
B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?
| No |
51 |
21.2 |
59.3 |
| Yes |
5 |
2.1 |
5.8 |
| Dont_know |
30 |
12.4 |
34.9 |
| NA |
155 |
64.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Ac: Father: Did he (or any) die of prostate cancer?
b1ac <- as.factor(d[,"b1ac"])
# Make "*" to NA
b1ac[which(b1ac=="*")]<-"NA"
levels(b1ac) <- list(No="1",
Yes="2",
Dont_know="88")
b1ac <- ordered(b1ac, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ac)
new.d <- apply_labels(new.d, b1ac = "Father")
temp.d <- data.frame (new.d, b1ac)
result<-questionr::freq(temp.d$b1ac,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ac: Father: Did he (or any) die of prostate cancer?")
B1Ac: Father: Did he (or any) die of prostate cancer?
| No |
60 |
24.9 |
68.2 |
| Yes |
16 |
6.6 |
18.2 |
| Dont_know |
12 |
5.0 |
13.6 |
| NA |
153 |
63.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
B1B: Any Brother
- B1BNo: Any Brother
- 1=I had no brothers
- if not marked
- B1Ba: Any Brother: Has this person had prostate cancer?
- B1Ba2: Any Brother: If Yes, number with prostate cancer
- B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
- B1Bc: Any Brother: Did he (or any) die of prostate cancer?
# B1BNo: Any Brother
b1bno <- as.factor(d[,"b1bno"])
levels(b1bno) <- list(No_brothers="1")
new.d <- data.frame(new.d, b1bno)
new.d <- apply_labels(new.d, b1bno = "Any Brother")
temp.d <- data.frame (new.d, b1bno)
result<-questionr::freq(temp.d$b1bno,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1BNo: Any Brother")
B1BNo: Any Brother
| No_brothers |
29 |
12 |
100 |
| NA |
212 |
88 |
NA |
| Total |
241 |
100 |
100 |
#B1Ba: Any Brother: Has this person had prostate cancer?
b1ba <- as.factor(d[,"b1ba"])
# Make "*" to NA
b1ba[which(b1ba=="*")]<-"NA"
levels(b1ba) <- list(No="1",
Yes="2",
Dont_know="88")
b1ba <- ordered(b1ba, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ba)
new.d <- apply_labels(new.d, b1ba = "Any Brother: have p cancer")
temp.d <- data.frame (new.d, b1ba)
result<-questionr::freq(temp.d$b1ba,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ba: Any Brother: Has this person had prostate cancer?")
B1Ba: Any Brother: Has this person had prostate cancer?
| No |
144 |
59.8 |
69.2 |
| Yes |
39 |
16.2 |
18.8 |
| Dont_know |
25 |
10.4 |
12.0 |
| NA |
33 |
13.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Ba2: Any Brother: If Yes, number with prostate cancer
b1ba2 <- as.factor(d[,"b1ba2"])
# Make "*" to NA
b1ba2[which(b1ba2=="*")]<-"NA"
levels(b1ba2) <- list(One="1",
Two_or_more="2")
b1ba2 <- ordered(b1ba2, c("One","Two_or_more"))
new.d <- data.frame(new.d, b1ba2)
new.d <- apply_labels(new.d, b1ba2 = "Number of brother")
temp.d <- data.frame (new.d, b1ba2)
result<-questionr::freq(temp.d$b1ba2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ba2: Any Brother: If Yes, number with prostate cancer")
B1Ba2: Any Brother: If Yes, number with prostate cancer
| One |
16 |
6.6 |
64 |
| Two_or_more |
9 |
3.7 |
36 |
| NA |
216 |
89.6 |
NA |
| Total |
241 |
100.0 |
100 |
#B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
b1bb <- as.factor(d[,"b1bb"])
# Make "*" to NA
b1bb[which(b1bb=="*")]<-"NA"
levels(b1bb) <- list(No="1",
Yes="2",
Dont_know="88")
b1bb <- ordered(b1bb, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1bb)
new.d <- apply_labels(new.d, b1bb = "Any Brother: before 55")
temp.d <- data.frame (new.d, b1bb)
result<-questionr::freq(temp.d$b1bb,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?")
B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
| No |
44 |
18.3 |
59.5 |
| Yes |
8 |
3.3 |
10.8 |
| Dont_know |
22 |
9.1 |
29.7 |
| NA |
167 |
69.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Bc: Any Brother: Did he (or any) die of prostate cancer?
b1bc <- as.factor(d[,"b1bc"])
# Make "*" to NA
b1bc[which(b1bc=="*")]<-"NA"
levels(b1bc) <- list(No="1",
Yes="2",
Dont_know="88")
b1bc <- ordered(b1bc, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1bc)
new.d <- apply_labels(new.d, b1bc = "Any Brother: die")
temp.d <- data.frame (new.d, b1bc)
result<-questionr::freq(temp.d$b1bc,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Bc: Any Brother: Did he (or any) die of prostate cancer?")
B1Bc: Any Brother: Did he (or any) die of prostate cancer?
| No |
58 |
24.1 |
82.9 |
| Yes |
4 |
1.7 |
5.7 |
| Dont_know |
8 |
3.3 |
11.4 |
| NA |
171 |
71.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
B1C: Any Son
- B1CNo: Any Son
- 1=I had no sons
- if not marked
- B1Ca: Any Son: Has this person had prostate cancer?
- B1Ca2: Any Son: If Yes, number with prostate cancer
- B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?
- B1Cc: Any Son: Did he (or any) die of prostate cancer?
# B1BNo
b1cno <- as.factor(d[,"b1cno"])
levels(b1cno) <- list(No_brothers="1")
new.d <- data.frame(new.d, b1cno)
new.d <- apply_labels(new.d, b1cno = "Any Son")
temp.d <- data.frame (new.d, b1cno)
result<-questionr::freq(temp.d$b1cno,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1CNo: Any Son")
B1CNo: Any Son
| No_brothers |
53 |
22 |
100 |
| NA |
188 |
78 |
NA |
| Total |
241 |
100 |
100 |
#B1Ca
b1ca <- as.factor(d[,"b1ca"])
# Make "*" to NA
b1ca[which(b1ca=="*")]<-"NA"
levels(b1ca) <- list(No="1",
Yes="2",
Dont_know="88")
b1ca <- ordered(b1ca, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ca)
new.d <- apply_labels(new.d, b1ca = "Any Son: have p cancer")
temp.d <- data.frame (new.d, b1ca)
result<-questionr::freq(temp.d$b1ca,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ca: Any Son: Has this person had prostate cancer?")
B1Ca: Any Son: Has this person had prostate cancer?
| No |
163 |
67.6 |
92.6 |
| Yes |
6 |
2.5 |
3.4 |
| Dont_know |
7 |
2.9 |
4.0 |
| NA |
65 |
27.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Ca2
b1ca2 <- as.factor(d[,"b1ca2"])
# Make "*" to NA
b1ca2[which(b1ca2=="*")]<-"NA"
levels(b1ca2) <- list(One="1",
Two_or_more="2")
b1ca2 <- ordered(b1ca2, c("One","Two_or_more"))
new.d <- data.frame(new.d, b1ca2)
new.d <- apply_labels(new.d, b1ca2 = "Number of sons")
temp.d <- data.frame (new.d, b1ca2)
result<-questionr::freq(temp.d$b1ca2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ca2: Any Son: If Yes, number with prostate cancer")
B1Ca2: Any Son: If Yes, number with prostate cancer
| One |
4 |
1.7 |
80 |
| Two_or_more |
1 |
0.4 |
20 |
| NA |
236 |
97.9 |
NA |
| Total |
241 |
100.0 |
100 |
#B1Cb
b1cb <- as.factor(d[,"b1cb"])
# Make "*" to NA
b1cb[which(b1cb=="*")]<-"NA"
levels(b1cb) <- list(No="1",
Yes="2",
Dont_know="88")
b1cb <- ordered(b1cb, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1cb)
new.d <- apply_labels(new.d, b1cb = "Any Son: before 55")
temp.d <- data.frame (new.d, b1cb)
result<-questionr::freq(temp.d$b1cb,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?")
B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?
| No |
36 |
14.9 |
85.7 |
| Yes |
2 |
0.8 |
4.8 |
| Dont_know |
4 |
1.7 |
9.5 |
| NA |
199 |
82.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
#B1Cc
b1cc <- as.factor(d[,"b1cc"])
# Make "*" to NA
b1cc[which(b1cc=="*")]<-"NA"
levels(b1cc) <- list(No="1",
Yes="2",
Dont_know="88")
b1cc <- ordered(b1cc, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1cc)
new.d <- apply_labels(new.d, b1cc = "Any Son: die")
temp.d <- data.frame (new.d, b1cc)
result<-questionr::freq(temp.d$b1cc,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Cc: Any Son: Did he (or any) die of prostate cancer?")
B1Cc: Any Son: Did he (or any) die of prostate cancer?
| No |
38 |
15.8 |
90.5 |
| Yes |
0 |
0.0 |
0.0 |
| Dont_know |
4 |
1.7 |
9.5 |
| NA |
199 |
82.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
B1D: Maternal Grandfather
- B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
- B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
- b1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?
# B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
b1da <- as.factor(d[,"b1da"])
# Make "*" to NA
b1da[which(b1da=="*")]<-"NA"
levels(b1da) <- list(No="1",
Yes="2",
Dont_know="88")
b1da <- ordered(b1da, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1da)
new.d <- apply_labels(new.d, b1da = "Father")
temp.d <- data.frame (new.d, b1da)
result<-questionr::freq(temp.d$b1da,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?")
B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
| No |
87 |
36.1 |
39.4 |
| Yes |
13 |
5.4 |
5.9 |
| Dont_know |
121 |
50.2 |
54.8 |
| NA |
20 |
8.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
# B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
b1db <- as.factor(d[,"b1db"])
# Make "*" to NA
b1db[which(b1db=="*")]<-"NA"
levels(b1db) <- list(No="1",
Yes="2",
Dont_know="88")
b1db <- ordered(b1db, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1db)
new.d <- apply_labels(new.d, b1db = "Father")
temp.d <- data.frame (new.d, b1db)
result<-questionr::freq(temp.d$b1db,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?")
B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
| No |
26 |
10.8 |
46.4 |
| Yes |
0 |
0.0 |
0.0 |
| Dont_know |
30 |
12.4 |
53.6 |
| NA |
185 |
76.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
# B1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?
b1dc <- as.factor(d[,"b1dc"])
# Make "*" to NA
b1dc[which(b1dc=="*")]<-"NA"
levels(b1dc) <- list(No="1",
Yes="2",
Dont_know="88")
b1dc <- ordered(b1dc, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1dc)
new.d <- apply_labels(new.d, b1dc = "Father")
temp.d <- data.frame (new.d, b1dc)
result<-questionr::freq(temp.d$b1dc,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?")
B1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?
| No |
25 |
10.4 |
45.5 |
| Yes |
4 |
1.7 |
7.3 |
| Dont_know |
26 |
10.8 |
47.3 |
| NA |
186 |
77.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
B1E: Paternal Grandfather
- B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?
- B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
- B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
# B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?
b1ea <- as.factor(d[,"b1ea"])
# Make "*" to NA
b1ea[which(b1ea=="*")]<-"NA"
levels(b1ea) <- list(No="1",
Yes="2",
Dont_know="88")
b1ea <- ordered(b1ea, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ea)
new.d <- apply_labels(new.d, b1ea = "Father")
temp.d <- data.frame (new.d, b1ea)
result<-questionr::freq(temp.d$b1ea,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?")
B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?
| No |
88 |
36.5 |
40.4 |
| Yes |
6 |
2.5 |
2.8 |
| Dont_know |
124 |
51.5 |
56.9 |
| NA |
23 |
9.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
# B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
b1eb <- as.factor(d[,"b1eb"])
# Make "*" to NA
b1eb[which(b1eb=="*")]<-"NA"
levels(b1eb) <- list(No="1",
Yes="2",
Dont_know="88")
b1eb <- ordered(b1eb, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1eb)
new.d <- apply_labels(new.d, b1eb = "Father")
temp.d <- data.frame (new.d, b1eb)
result<-questionr::freq(temp.d$b1eb,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?")
B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
| No |
23 |
9.5 |
48.9 |
| Yes |
0 |
0.0 |
0.0 |
| Dont_know |
24 |
10.0 |
51.1 |
| NA |
194 |
80.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
# B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
b1ec <- as.factor(d[,"b1ec"])
# Make "*" to NA
b1ec[which(b1ec=="*")]<-"NA"
levels(b1ec) <- list(No="1",
Yes="2",
Dont_know="88")
b1ec <- ordered(b1ec, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, b1ec)
new.d <- apply_labels(new.d, b1ec = "Father")
temp.d <- data.frame (new.d, b1ec)
result<-questionr::freq(temp.d$b1ec,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?")
B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
| No |
21 |
8.7 |
43.8 |
| Yes |
3 |
1.2 |
6.2 |
| Dont_know |
24 |
10.0 |
50.0 |
| NA |
193 |
80.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
B2: Family History (Other cancers)
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)?
b2 <- as.factor(d[,"b2"])
# Make "*" to NA
b2[which(b2=="*")]<-"NA"
levels(b2) <- list(No="1",
Yes="2")
b2 <- ordered(b2, c("Yes","No"))
new.d <- data.frame(new.d, b2)
new.d <- apply_labels(new.d, b2 = "Month Diagnosed")
temp.d <- data.frame (new.d, b2)
result<-questionr::freq(temp.d$b2, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B2")
B2
| Yes |
47 |
19.5 |
37.6 |
| No |
78 |
32.4 |
62.4 |
| NA |
116 |
48.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
B2A: Mother
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2A_1: 1=Breast
- B2A_2: 1=Ovarian
- B2A_3: 1=Colorectal
- B2A_4: 1=Lung
- B2A_5: 1=Other Cancer
b2a_1 <- as.factor(d[,"b2a_1"])
levels(b2a_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2a_1)
new.d <- apply_labels(new.d, b2a_1 = "Breast")
temp.d <- data.frame (new.d, b2a_1)
result<-questionr::freq(temp.d$b2a_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
24 |
10 |
100 |
| NA |
217 |
90 |
NA |
| Total |
241 |
100 |
100 |
b2a_2 <- as.factor(d[,"b2a_2"])
levels(b2a_2) <- list(Ovarian="1")
new.d <- data.frame(new.d, b2a_2)
new.d <- apply_labels(new.d, b2a_2 = "Ovarian")
temp.d <- data.frame (new.d, b2a_2)
result<-questionr::freq(temp.d$b2a_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
| Ovarian |
12 |
5 |
100 |
| NA |
229 |
95 |
NA |
| Total |
241 |
100 |
100 |
b2a_3 <- as.factor(d[,"b2a_3"])
levels(b2a_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2a_3)
new.d <- apply_labels(new.d, b2a_3 = "Colorectal")
temp.d <- data.frame (new.d, b2a_3)
result<-questionr::freq(temp.d$b2a_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
5 |
2.1 |
100 |
| NA |
236 |
97.9 |
NA |
| Total |
241 |
100.0 |
100 |
b2a_4 <- as.factor(d[,"b2a_4"])
levels(b2a_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2a_4)
new.d <- apply_labels(new.d, b2a_4 = "Lung")
temp.d <- data.frame (new.d, b2a_4)
result<-questionr::freq(temp.d$b2a_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
7 |
2.9 |
100 |
| NA |
234 |
97.1 |
NA |
| Total |
241 |
100.0 |
100 |
b2a_5 <- as.factor(d[,"b2a_5"])
levels(b2a_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2a_5)
new.d <- apply_labels(new.d, b2a_5 = "Lung")
temp.d <- data.frame (new.d, b2a_5)
result<-questionr::freq(temp.d$b2a_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
29 |
12 |
100 |
| NA |
212 |
88 |
NA |
| Total |
241 |
100 |
100 |
B2B: Father
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2B_1: 1=Breast
- B2B_3: 1=Colorectal
- B2B_4: 1=Lung
- B2B_5: 1=Other Cancer
b2b_1 <- as.factor(d[,"b2b_1"])
levels(b2b_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2b_1)
new.d <- apply_labels(new.d, b2b_1 = "Breast")
temp.d <- data.frame (new.d, b2b_1)
result<-questionr::freq(temp.d$b2b_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
b2b_3 <- as.factor(d[,"b2b_3"])
levels(b2b_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2b_3)
new.d <- apply_labels(new.d, b2b_3 = "Colorectal")
temp.d <- data.frame (new.d, b2b_3)
result<-questionr::freq(temp.d$b2b_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
4 |
1.7 |
100 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
b2b_4 <- as.factor(d[,"b2b_4"])
levels(b2b_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2b_4)
new.d <- apply_labels(new.d, b2b_4 = "Lung")
temp.d <- data.frame (new.d, b2b_4)
result<-questionr::freq(temp.d$b2b_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
9 |
3.7 |
100 |
| NA |
232 |
96.3 |
NA |
| Total |
241 |
100.0 |
100 |
b2b_5 <- as.factor(d[,"b2b_5"])
levels(b2b_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2b_5)
new.d <- apply_labels(new.d, b2b_5 = "Lung")
temp.d <- data.frame (new.d, b2b_5)
result<-questionr::freq(temp.d$b2b_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
18 |
7.5 |
100 |
| NA |
223 |
92.5 |
NA |
| Total |
241 |
100.0 |
100 |
B2C: Any sister
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2C_1: 1=Breast
- B2C_2: 1=Ovarian
- B2C_3: 1=Colorectal
- B2C_4: 1=Lung
- B2C_5: 1=Other Cancer
b2c_1 <- as.factor(d[,"b2c_1"])
levels(b2c_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2c_1)
new.d <- apply_labels(new.d, b2c_1 = "Breast")
temp.d <- data.frame (new.d, b2c_1)
result<-questionr::freq(temp.d$b2c_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
18 |
7.5 |
100 |
| NA |
223 |
92.5 |
NA |
| Total |
241 |
100.0 |
100 |
b2c_2 <- as.factor(d[,"b2c_2"])
levels(b2c_2) <- list(Ovarian="1")
new.d <- data.frame(new.d, b2c_2)
new.d <- apply_labels(new.d, b2c_2 = "Ovarian")
temp.d <- data.frame (new.d, b2c_2)
result<-questionr::freq(temp.d$b2c_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
| Ovarian |
9 |
3.7 |
100 |
| NA |
232 |
96.3 |
NA |
| Total |
241 |
100.0 |
100 |
b2c_3 <- as.factor(d[,"b2c_3"])
levels(b2c_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2c_3)
new.d <- apply_labels(new.d, b2c_3 = "Colorectal")
temp.d <- data.frame (new.d, b2c_3)
result<-questionr::freq(temp.d$b2c_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
3 |
1.2 |
100 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100 |
b2c_4 <- as.factor(d[,"b2c_4"])
levels(b2c_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2c_4)
new.d <- apply_labels(new.d, b2c_4 = "Lung")
temp.d <- data.frame (new.d, b2c_4)
result<-questionr::freq(temp.d$b2c_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
b2c_5 <- as.factor(d[,"b2c_5"])
levels(b2c_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2c_5)
new.d <- apply_labels(new.d, b2c_5 = "Lung")
temp.d <- data.frame (new.d, b2c_5)
result<-questionr::freq(temp.d$b2c_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
16 |
6.6 |
100 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100 |
B2D: Any brother
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2D_1: 1=Breast
- B2D_3: 1=Colorectal
- B2D_4: 1=Lung
- B2D_5: 1=Other Cancer
b2d_1 <- as.factor(d[,"b2d_1"])
levels(b2d_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2d_1)
new.d <- apply_labels(new.d, b2d_1 = "Breast")
temp.d <- data.frame (new.d, b2d_1)
result<-questionr::freq(temp.d$b2d_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2d_3 <- as.factor(d[,"b2d_3"])
levels(b2d_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2d_3)
new.d <- apply_labels(new.d, b2d_3 = "Colorectal")
temp.d <- data.frame (new.d, b2d_3)
result<-questionr::freq(temp.d$b2d_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
4 |
1.7 |
100 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
b2d_4 <- as.factor(d[,"b2d_4"])
levels(b2d_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2d_4)
new.d <- apply_labels(new.d, b2d_4 = "Lung")
temp.d <- data.frame (new.d, b2d_4)
result<-questionr::freq(temp.d$b2d_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
6 |
2.5 |
100 |
| NA |
235 |
97.5 |
NA |
| Total |
241 |
100.0 |
100 |
b2d_5 <- as.factor(d[,"b2d_5"])
levels(b2d_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2d_5)
new.d <- apply_labels(new.d, b2d_5 = "Lung")
temp.d <- data.frame (new.d, b2d_5)
result<-questionr::freq(temp.d$b2d_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
20 |
8.3 |
100 |
| NA |
221 |
91.7 |
NA |
| Total |
241 |
100.0 |
100 |
B2E: Any daughter
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2E_1: 1=Breast
- B2E_2: 1=Ovarian
- B2E_3: 1=Colorectal
- B2E_4: 1=Lung
- B2E_5: 1=Other Cancer
b2e_1 <- as.factor(d[,"b2e_1"])
levels(b2e_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2e_1)
new.d <- apply_labels(new.d, b2e_1 = "Breast")
temp.d <- data.frame (new.d, b2e_1)
result<-questionr::freq(temp.d$b2e_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
b2e_2 <- as.factor(d[,"b2e_2"])
levels(b2e_2) <- list(Ovarian="1")
new.d <- data.frame(new.d, b2e_2)
new.d <- apply_labels(new.d, b2e_2 = "Ovarian")
temp.d <- data.frame (new.d, b2e_2)
result<-questionr::freq(temp.d$b2e_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
| Ovarian |
6 |
2.5 |
100 |
| NA |
235 |
97.5 |
NA |
| Total |
241 |
100.0 |
100 |
b2e_3 <- as.factor(d[,"b2e_3"])
levels(b2e_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2e_3)
new.d <- apply_labels(new.d, b2e_3 = "Colorectal")
temp.d <- data.frame (new.d, b2e_3)
result<-questionr::freq(temp.d$b2e_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2e_4 <- as.factor(d[,"b2e_4"])
levels(b2e_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2e_4)
new.d <- apply_labels(new.d, b2e_4 = "Lung")
temp.d <- data.frame (new.d, b2e_4)
result<-questionr::freq(temp.d$b2e_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2e_5 <- as.factor(d[,"b2e_5"])
levels(b2e_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2e_5)
new.d <- apply_labels(new.d, b2e_5 = "Lung")
temp.d <- data.frame (new.d, b2e_5)
result<-questionr::freq(temp.d$b2e_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
2 |
0.8 |
100 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
B2F: Any son
- B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
- B2F_1: 1=Breast
- B2F_3: 1=Colorectal
- B2F_4: 1=Lung
- B2F_5: 1=Other Cancer
b2f_1 <- as.factor(d[,"b2f_1"])
levels(b2f_1) <- list(Breast="1")
new.d <- data.frame(new.d, b2f_1)
new.d <- apply_labels(new.d, b2f_1 = "Breast")
temp.d <- data.frame (new.d, b2f_1)
result<-questionr::freq(temp.d$b2f_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
| Breast |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2f_3 <- as.factor(d[,"b2f_3"])
levels(b2f_3) <- list(Colorectal="1")
new.d <- data.frame(new.d, b2f_3)
new.d <- apply_labels(new.d, b2f_3 = "Colorectal")
temp.d <- data.frame (new.d, b2f_3)
result<-questionr::freq(temp.d$b2f_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
| Colorectal |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2f_4 <- as.factor(d[,"b2f_4"])
levels(b2f_4) <- list(Lung="1")
new.d <- data.frame(new.d, b2f_4)
new.d <- apply_labels(new.d, b2f_4 = "Lung")
temp.d <- data.frame (new.d, b2f_4)
result<-questionr::freq(temp.d$b2f_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
| Lung |
0 |
0 |
NaN |
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
b2f_5 <- as.factor(d[,"b2f_5"])
levels(b2f_5) <- list(Other_Cancer="1")
new.d <- data.frame(new.d, b2f_5)
new.d <- apply_labels(new.d, b2f_5 = "Lung")
temp.d <- data.frame (new.d, b2f_5)
result<-questionr::freq(temp.d$b2f_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
| Other_Cancer |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
B3: Current health
- B3. In general, how would you rate your current health?
- 1=Excellent
- 2=Very Good
- 3=Good
- 4=Fair
- 5=Poor
b3 <- as.factor(d[,"b3"])
# Make "*" to NA
b3[which(b3=="*")]<-"NA"
levels(b3) <- list(Excellent="1",
Very_Good="2",
Good="3",
Fair="4",
Poor="5")
b3 <- ordered(b3, c("Excellent","Very_Good","Good","Fair","Poor"))
new.d <- data.frame(new.d, b3)
new.d <- apply_labels(new.d, b3 = "Current Health")
temp.d <- data.frame (new.d, b3)
result<-questionr::freq(temp.d$b3, cum = TRUE, total = TRUE)
kable(result, format = "simple", align = 'l')
| Excellent |
14 |
5.8 |
6.2 |
5.8 |
6.2 |
| Very_Good |
51 |
21.2 |
22.6 |
27.0 |
28.8 |
| Good |
90 |
37.3 |
39.8 |
64.3 |
68.6 |
| Fair |
59 |
24.5 |
26.1 |
88.8 |
94.7 |
| Poor |
12 |
5.0 |
5.3 |
93.8 |
100.0 |
| NA |
15 |
6.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
B4: Comorbidities
- B4. Has the doctor ever told you that you have/had…
- Heart Attack
- Heart Failure or CHF
- Stroke
- Hypertension
- Peripheral arterial disease
- High Cholesterol
- Asthma, COPD
- Stomach ulcers
- Crohn’s Disease
- Diabetes
- Kidney Problems
- Cirrhosis, liver damage
- Arthritis
- Dementia
- Depression
- AIDS
- Other Cancer
# Heart Attack
b4aa <- as.factor(d[,"b4aa"])
# Make "*" to NA
b4aa[which(b4aa=="*")]<-"NA"
levels(b4aa) <- list(No="1",
Yes="2")
b4aa <- ordered(b4aa, c("No", "Yes"))
new.d <- data.frame(new.d, b4aa)
new.d <- apply_labels(new.d, b4aa = "Heart Attack")
temp.d <- data.frame (new.d, b4aa)
result<-questionr::freq(temp.d$b4aa, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Heart Attack")
Heart Attack
| No |
213 |
88.4 |
92.6 |
| Yes |
17 |
7.1 |
7.4 |
| NA |
11 |
4.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4ab <- as.factor(d[,"b4ab"])
new.d <- data.frame(new.d, b4ab)
new.d <- apply_labels(new.d, b4ab = "Heart Attack age")
temp.d <- data.frame (new.d, b4ab)
result<-questionr::freq(temp.d$b4ab, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Heart Attack Age")
Heart Attack Age
| 17 |
1 |
0.4 |
5.9 |
| 26 |
1 |
0.4 |
5.9 |
| 45 |
2 |
0.8 |
11.8 |
| 51 |
1 |
0.4 |
5.9 |
| 56 |
1 |
0.4 |
5.9 |
| 60 |
3 |
1.2 |
17.6 |
| 61 |
1 |
0.4 |
5.9 |
| 65 |
1 |
0.4 |
5.9 |
| 67 |
2 |
0.8 |
11.8 |
| 70 |
1 |
0.4 |
5.9 |
| 73 |
1 |
0.4 |
5.9 |
| 76 |
1 |
0.4 |
5.9 |
| 79 |
1 |
0.4 |
5.9 |
| NA |
224 |
92.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Heart Failure or CHF
b4ba <- as.factor(d[,"b4ba"])
# Make "*" to NA
b4ba[which(b4ba=="*")]<-"NA"
levels(b4ba) <- list(No="1",
Yes="2")
b4ba <- ordered(b4ba, c("No", "Yes"))
new.d <- data.frame(new.d, b4ba)
new.d <- apply_labels(new.d, b4ba = "Heart Failure or CHF")
temp.d <- data.frame (new.d, b4ba)
result<-questionr::freq(temp.d$b4ba, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Heart Failure or CHF")
Heart Failure or CHF
| No |
213 |
88.4 |
93.4 |
| Yes |
15 |
6.2 |
6.6 |
| NA |
13 |
5.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4bb <- as.factor(d[,"b4bb"])
new.d <- data.frame(new.d, b4bb)
new.d <- apply_labels(new.d, b4bb = "Heart Failure or CHF age")
temp.d <- data.frame (new.d, b4bb)
result<-questionr::freq(temp.d$b4bb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Heart Failure or CHF Age")
Heart Failure or CHF Age
| 17 |
1 |
0.4 |
6.7 |
| 18 |
1 |
0.4 |
6.7 |
| 47 |
1 |
0.4 |
6.7 |
| 51 |
1 |
0.4 |
6.7 |
| 56 |
1 |
0.4 |
6.7 |
| 57 |
1 |
0.4 |
6.7 |
| 60 |
3 |
1.2 |
20.0 |
| 62 |
1 |
0.4 |
6.7 |
| 66 |
1 |
0.4 |
6.7 |
| 67 |
1 |
0.4 |
6.7 |
| 71 |
1 |
0.4 |
6.7 |
| 72 |
1 |
0.4 |
6.7 |
| 73 |
1 |
0.4 |
6.7 |
| NA |
226 |
93.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Stroke
b4ca <- as.factor(d[,"b4ca"])
# Make "*" to NA
b4ca[which(b4ca=="*")]<-"NA"
levels(b4ca) <- list(No="1",
Yes="2")
b4ca <- ordered(b4ca, c("No", "Yes"))
new.d <- data.frame(new.d, b4ca)
new.d <- apply_labels(new.d, b4ca = "Stroke")
temp.d <- data.frame (new.d, b4ca)
result<-questionr::freq(temp.d$b4ca,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Stroke")
Stroke
| No |
205 |
85.1 |
89.1 |
| Yes |
25 |
10.4 |
10.9 |
| NA |
11 |
4.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4cb <- as.factor(d[,"b4cb"])
new.d <- data.frame(new.d, b4cb)
new.d <- apply_labels(new.d, b4cb = "Stroke age")
temp.d <- data.frame (new.d, b4cb)
result<-questionr::freq(temp.d$b4cb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Stroke Age")
Stroke Age
| 25 |
1 |
0.4 |
4.5 |
| 42 |
1 |
0.4 |
4.5 |
| 47 |
1 |
0.4 |
4.5 |
| 48 |
1 |
0.4 |
4.5 |
| 49 |
1 |
0.4 |
4.5 |
| 5 |
1 |
0.4 |
4.5 |
| 50 |
1 |
0.4 |
4.5 |
| 52 |
1 |
0.4 |
4.5 |
| 57 |
1 |
0.4 |
4.5 |
| 59 |
2 |
0.8 |
9.1 |
| 62 |
3 |
1.2 |
13.6 |
| 63 |
1 |
0.4 |
4.5 |
| 65 |
2 |
0.8 |
9.1 |
| 68 |
2 |
0.8 |
9.1 |
| 70 |
1 |
0.4 |
4.5 |
| 79 |
2 |
0.8 |
9.1 |
| NA |
219 |
90.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Hypertension
b4da <- as.factor(d[,"b4da"])
# Make "*" to NA
b4da[which(b4da=="*")]<-"NA"
levels(b4da) <- list(No="1",
Yes="2")
b4da <- ordered(b4da, c("No", "Yes"))
new.d <- data.frame(new.d, b4da)
new.d <- apply_labels(new.d, b4da = "Hypertension")
temp.d <- data.frame (new.d, b4da)
result<-questionr::freq(temp.d$b4da, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Hypertension")
Hypertension
| No |
74 |
30.7 |
33.2 |
| Yes |
149 |
61.8 |
66.8 |
| NA |
18 |
7.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4db <- as.factor(d[,"b4db"])
new.d <- data.frame(new.d, b4db)
new.d <- apply_labels(new.d, b4db = "Hypertension age")
temp.d <- data.frame (new.d, b4db)
result<-questionr::freq(temp.d$b4db, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Hypertension Age")
Hypertension Age
| 16 |
1 |
0.4 |
0.7 |
| 17 |
1 |
0.4 |
0.7 |
| 22 |
1 |
0.4 |
0.7 |
| 23 |
1 |
0.4 |
0.7 |
| 24 |
1 |
0.4 |
0.7 |
| 26 |
2 |
0.8 |
1.4 |
| 30 |
4 |
1.7 |
2.9 |
| 31 |
1 |
0.4 |
0.7 |
| 32 |
1 |
0.4 |
0.7 |
| 35 |
4 |
1.7 |
2.9 |
| 37 |
1 |
0.4 |
0.7 |
| 38 |
1 |
0.4 |
0.7 |
| 39 |
1 |
0.4 |
0.7 |
| 4 |
1 |
0.4 |
0.7 |
| 40 |
10 |
4.1 |
7.2 |
| 41 |
1 |
0.4 |
0.7 |
| 42 |
2 |
0.8 |
1.4 |
| 43 |
2 |
0.8 |
1.4 |
| 45 |
9 |
3.7 |
6.5 |
| 47 |
3 |
1.2 |
2.2 |
| 48 |
1 |
0.4 |
0.7 |
| 49 |
2 |
0.8 |
1.4 |
| 5 |
2 |
0.8 |
1.4 |
| 50 |
23 |
9.5 |
16.5 |
| 51 |
2 |
0.8 |
1.4 |
| 52 |
1 |
0.4 |
0.7 |
| 53 |
1 |
0.4 |
0.7 |
| 54 |
5 |
2.1 |
3.6 |
| 55 |
10 |
4.1 |
7.2 |
| 56 |
3 |
1.2 |
2.2 |
| 57 |
2 |
0.8 |
1.4 |
| 58 |
7 |
2.9 |
5.0 |
| 59 |
1 |
0.4 |
0.7 |
| 60 |
10 |
4.1 |
7.2 |
| 61 |
1 |
0.4 |
0.7 |
| 62 |
3 |
1.2 |
2.2 |
| 63 |
3 |
1.2 |
2.2 |
| 64 |
3 |
1.2 |
2.2 |
| 65 |
2 |
0.8 |
1.4 |
| 67 |
2 |
0.8 |
1.4 |
| 68 |
1 |
0.4 |
0.7 |
| 69 |
2 |
0.8 |
1.4 |
| 70 |
1 |
0.4 |
0.7 |
| 74 |
1 |
0.4 |
0.7 |
| 75 |
1 |
0.4 |
0.7 |
| 9 |
1 |
0.4 |
0.7 |
| NA |
102 |
42.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Peripheral arterial disease
b4ea <- as.factor(d[,"b4ea"])
# Make "*" to NA
b4ea[which(b4ea=="*")]<-"NA"
levels(b4ea) <- list(No="1",
Yes="2")
b4ea <- ordered(b4ea, c("No", "Yes"))
new.d <- data.frame(new.d, b4ea)
new.d <- apply_labels(new.d, b4ea = "Peripheral arterial disease")
temp.d <- data.frame (new.d, b4ea)
result<-questionr::freq(temp.d$b4ea,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Peripheral arterial disease")
Peripheral arterial disease
| No |
201 |
83.4 |
92.6 |
| Yes |
16 |
6.6 |
7.4 |
| NA |
24 |
10.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4eb <- as.factor(d[,"b4eb"])
new.d <- data.frame(new.d, b4eb)
new.d <- apply_labels(new.d, b4eb = "Peripheral arterial disease age")
temp.d <- data.frame (new.d, b4eb)
result<-questionr::freq(temp.d$b4eb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Peripheral arterial disease Age")
Peripheral arterial disease Age
| 0 |
1 |
0.4 |
6.2 |
| 40 |
1 |
0.4 |
6.2 |
| 48 |
1 |
0.4 |
6.2 |
| 50 |
1 |
0.4 |
6.2 |
| 51 |
1 |
0.4 |
6.2 |
| 56 |
1 |
0.4 |
6.2 |
| 57 |
1 |
0.4 |
6.2 |
| 58 |
1 |
0.4 |
6.2 |
| 60 |
1 |
0.4 |
6.2 |
| 62 |
1 |
0.4 |
6.2 |
| 64 |
1 |
0.4 |
6.2 |
| 65 |
1 |
0.4 |
6.2 |
| 66 |
1 |
0.4 |
6.2 |
| 69 |
1 |
0.4 |
6.2 |
| 70 |
1 |
0.4 |
6.2 |
| 76 |
1 |
0.4 |
6.2 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
# High Cholesterol
b4fa <- as.factor(d[,"b4fa"])
# Make "*" to NA
b4fa[which(b4fa=="*")]<-"NA"
levels(b4fa) <- list(No="1",
Yes="2")
b4fa <- ordered(b4fa, c("No", "Yes"))
new.d <- data.frame(new.d, b4fa)
new.d <- apply_labels(new.d, b4fa = "High Cholesterol")
temp.d <- data.frame (new.d, b4fa)
result<-questionr::freq(temp.d$b4fa, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "High Cholesterol")
High Cholesterol
| No |
109 |
45.2 |
48.2 |
| Yes |
117 |
48.5 |
51.8 |
| NA |
15 |
6.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4fb <- as.factor(d[,"b4fb"])
new.d <- data.frame(new.d, b4fb)
new.d <- apply_labels(new.d, b4fb = "High Cholesterol age")
temp.d <- data.frame (new.d, b4fb)
result<-questionr::freq(temp.d$b4fb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "High Cholesterol Age")
High Cholesterol Age
| 1 |
1 |
0.4 |
1.0 |
| 10 |
1 |
0.4 |
1.0 |
| 19 |
1 |
0.4 |
1.0 |
| 20 |
1 |
0.4 |
1.0 |
| 26 |
1 |
0.4 |
1.0 |
| 28 |
1 |
0.4 |
1.0 |
| 29 |
1 |
0.4 |
1.0 |
| 30 |
1 |
0.4 |
1.0 |
| 34 |
1 |
0.4 |
1.0 |
| 35 |
3 |
1.2 |
3.1 |
| 38 |
1 |
0.4 |
1.0 |
| 40 |
3 |
1.2 |
3.1 |
| 42 |
1 |
0.4 |
1.0 |
| 45 |
6 |
2.5 |
6.2 |
| 47 |
1 |
0.4 |
1.0 |
| 48 |
1 |
0.4 |
1.0 |
| 49 |
2 |
0.8 |
2.1 |
| 50 |
10 |
4.1 |
10.4 |
| 51 |
1 |
0.4 |
1.0 |
| 53 |
1 |
0.4 |
1.0 |
| 54 |
1 |
0.4 |
1.0 |
| 55 |
8 |
3.3 |
8.3 |
| 56 |
5 |
2.1 |
5.2 |
| 57 |
4 |
1.7 |
4.2 |
| 58 |
3 |
1.2 |
3.1 |
| 59 |
3 |
1.2 |
3.1 |
| 6 |
1 |
0.4 |
1.0 |
| 60 |
8 |
3.3 |
8.3 |
| 61 |
1 |
0.4 |
1.0 |
| 62 |
2 |
0.8 |
2.1 |
| 63 |
3 |
1.2 |
3.1 |
| 64 |
1 |
0.4 |
1.0 |
| 65 |
7 |
2.9 |
7.3 |
| 66 |
2 |
0.8 |
2.1 |
| 68 |
2 |
0.8 |
2.1 |
| 70 |
1 |
0.4 |
1.0 |
| 74 |
2 |
0.8 |
2.1 |
| 75 |
1 |
0.4 |
1.0 |
| 86 |
1 |
0.4 |
1.0 |
| 99 |
1 |
0.4 |
1.0 |
| NA |
145 |
60.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Asthma, COPD
b4ga <- as.factor(d[,"b4ga"])
# Make "*" to NA
b4ga[which(b4ga=="*")]<-"NA"
levels(b4ga) <- list(No="1",
Yes="2")
b4ga <- ordered(b4ga, c("No", "Yes"))
new.d <- data.frame(new.d, b4ga)
new.d <- apply_labels(new.d, b4ga = "Asthma, COPD")
temp.d <- data.frame (new.d, b4ga)
result<-questionr::freq(temp.d$b4ga, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Asthma, COPD")
Asthma, COPD
| No |
194 |
80.5 |
81.5 |
| Yes |
44 |
18.3 |
18.5 |
| NA |
3 |
1.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4gb <- as.factor(d[,"b4gb"])
new.d <- data.frame(new.d, b4gb)
new.d <- apply_labels(new.d, b4gb = "Asthma, COPD age")
temp.d <- data.frame (new.d, b4gb)
result<-questionr::freq(temp.d$b4gb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Asthma, COPD Age")
Asthma, COPD Age
| 1 |
2 |
0.8 |
4.9 |
| 10 |
2 |
0.8 |
4.9 |
| 11 |
1 |
0.4 |
2.4 |
| 14 |
2 |
0.8 |
4.9 |
| 18 |
1 |
0.4 |
2.4 |
| 19 |
1 |
0.4 |
2.4 |
| 20 |
1 |
0.4 |
2.4 |
| 26 |
1 |
0.4 |
2.4 |
| 32 |
1 |
0.4 |
2.4 |
| 40 |
1 |
0.4 |
2.4 |
| 46 |
1 |
0.4 |
2.4 |
| 5 |
2 |
0.8 |
4.9 |
| 50 |
2 |
0.8 |
4.9 |
| 55 |
1 |
0.4 |
2.4 |
| 56 |
1 |
0.4 |
2.4 |
| 57 |
3 |
1.2 |
7.3 |
| 58 |
2 |
0.8 |
4.9 |
| 59 |
1 |
0.4 |
2.4 |
| 60 |
3 |
1.2 |
7.3 |
| 62 |
2 |
0.8 |
4.9 |
| 63 |
1 |
0.4 |
2.4 |
| 64 |
1 |
0.4 |
2.4 |
| 66 |
2 |
0.8 |
4.9 |
| 67 |
1 |
0.4 |
2.4 |
| 70 |
1 |
0.4 |
2.4 |
| 71 |
1 |
0.4 |
2.4 |
| 78 |
1 |
0.4 |
2.4 |
| 79 |
1 |
0.4 |
2.4 |
| 9 |
1 |
0.4 |
2.4 |
| NA |
200 |
83.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Stomach ulcers
b4ha <- as.factor(d[,"b4ha"])
# Make "*" to NA
b4ha[which(b4ha=="*")]<-"NA"
levels(b4ha) <- list(No="1",
Yes="2")
b4ha <- ordered(b4ha, c("No", "Yes"))
new.d <- data.frame(new.d, b4ha)
new.d <- apply_labels(new.d, b4ha = "Stomach ulcers")
temp.d <- data.frame (new.d, b4ha)
result<-questionr::freq(temp.d$b4ha, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Stomach ulcers")
Stomach ulcers
| No |
216 |
89.6 |
90.4 |
| Yes |
23 |
9.5 |
9.6 |
| NA |
2 |
0.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4hb <- as.factor(d[,"b4hb"])
new.d <- data.frame(new.d, b4hb)
new.d <- apply_labels(new.d, b4hb = "Stomach ulcers age")
temp.d <- data.frame (new.d, b4hb)
result<-questionr::freq(temp.d$b4hb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Stomach ulcers Age")
Stomach ulcers Age
| 14 |
1 |
0.4 |
5.9 |
| 22 |
1 |
0.4 |
5.9 |
| 28 |
1 |
0.4 |
5.9 |
| 30 |
1 |
0.4 |
5.9 |
| 34 |
1 |
0.4 |
5.9 |
| 35 |
1 |
0.4 |
5.9 |
| 40 |
1 |
0.4 |
5.9 |
| 45 |
1 |
0.4 |
5.9 |
| 46 |
1 |
0.4 |
5.9 |
| 48 |
1 |
0.4 |
5.9 |
| 50 |
2 |
0.8 |
11.8 |
| 60 |
1 |
0.4 |
5.9 |
| 62 |
1 |
0.4 |
5.9 |
| 64 |
1 |
0.4 |
5.9 |
| 65 |
1 |
0.4 |
5.9 |
| 68 |
1 |
0.4 |
5.9 |
| NA |
224 |
92.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Crohn's Disease
b4ia <- as.factor(d[,"b4ia"])
# Make "*" to NA
b4ia[which(b4ia=="*")]<-"NA"
levels(b4ia) <- list(No="1",
Yes="2")
b4ia <- ordered(b4ia, c("No", "Yes"))
new.d <- data.frame(new.d, b4ia)
new.d <- apply_labels(new.d, b4ia = "Crohn's Disease")
temp.d <- data.frame (new.d, b4ia)
result<-questionr::freq(temp.d$b4ia, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Crohn's Disease")
Crohn’s Disease
| No |
230 |
95.4 |
98.7 |
| Yes |
3 |
1.2 |
1.3 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4ib <- as.factor(d[,"b4ib"])
new.d <- data.frame(new.d, b4ib)
new.d <- apply_labels(new.d, b4ib = "Crohn's Disease age")
temp.d <- data.frame (new.d, b4ib)
result<-questionr::freq(temp.d$b4ib, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Crohn's Disease Age")
Crohn’s Disease Age
| 34 |
1 |
0.4 |
25 |
| 40 |
1 |
0.4 |
25 |
| 44 |
1 |
0.4 |
25 |
| 64 |
1 |
0.4 |
25 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
# Diabetes
b4ja <- as.factor(d[,"b4ja"])
# Make "*" to NA
b4ja[which(b4ja=="*")]<-"NA"
levels(b4ja) <- list(No="1",
Yes="2")
b4ja <- ordered(b4ja, c("No", "Yes"))
new.d <- data.frame(new.d, b4ja)
new.d <- apply_labels(new.d, b4ja = "Diabetes")
temp.d <- data.frame (new.d, b4ja)
result<-questionr::freq(temp.d$b4ja, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Diabetes")
Diabetes
| No |
166 |
68.9 |
69.7 |
| Yes |
72 |
29.9 |
30.3 |
| NA |
3 |
1.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4jb <- as.factor(d[,"b4jb"])
new.d <- data.frame(new.d, b4jb)
new.d <- apply_labels(new.d, b4jb = "Diabetes age")
temp.d <- data.frame (new.d, b4jb)
result<-questionr::freq(temp.d$b4jb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Diabetes Age")
Diabetes Age
| 19 |
1 |
0.4 |
1.7 |
| 20 |
1 |
0.4 |
1.7 |
| 22 |
1 |
0.4 |
1.7 |
| 29 |
2 |
0.8 |
3.3 |
| 35 |
3 |
1.2 |
5.0 |
| 36 |
1 |
0.4 |
1.7 |
| 38 |
1 |
0.4 |
1.7 |
| 40 |
1 |
0.4 |
1.7 |
| 42 |
1 |
0.4 |
1.7 |
| 43 |
2 |
0.8 |
3.3 |
| 45 |
3 |
1.2 |
5.0 |
| 47 |
1 |
0.4 |
1.7 |
| 49 |
2 |
0.8 |
3.3 |
| 50 |
8 |
3.3 |
13.3 |
| 53 |
1 |
0.4 |
1.7 |
| 54 |
3 |
1.2 |
5.0 |
| 55 |
4 |
1.7 |
6.7 |
| 57 |
5 |
2.1 |
8.3 |
| 58 |
2 |
0.8 |
3.3 |
| 60 |
4 |
1.7 |
6.7 |
| 62 |
2 |
0.8 |
3.3 |
| 63 |
3 |
1.2 |
5.0 |
| 64 |
1 |
0.4 |
1.7 |
| 65 |
3 |
1.2 |
5.0 |
| 66 |
1 |
0.4 |
1.7 |
| 69 |
3 |
1.2 |
5.0 |
| NA |
181 |
75.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Kidney Problems
b4ka <- as.factor(d[,"b4ka"])
# Make "*" to NA
b4ka[which(b4ka=="*")]<-"NA"
levels(b4ka) <- list(No="1",
Yes="2")
b4ka <- ordered(b4ka, c("No", "Yes"))
new.d <- data.frame(new.d, b4ka)
new.d <- apply_labels(new.d, b4ka = "Kidney Problems")
temp.d <- data.frame (new.d, b4ka)
result<-questionr::freq(temp.d$b4ka, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Kidney Problems")
Kidney Problems
| No |
222 |
92.1 |
93.3 |
| Yes |
16 |
6.6 |
6.7 |
| NA |
3 |
1.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4kb <- as.factor(d[,"b4kb"])
new.d <- data.frame(new.d, b4kb)
new.d <- apply_labels(new.d, b4kb = "Kidney Problems age")
temp.d <- data.frame (new.d, b4kb)
result<-questionr::freq(temp.d$b4kb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Kidney Problems Age")
Kidney Problems Age
| 15 |
2 |
0.8 |
13.3 |
| 40 |
1 |
0.4 |
6.7 |
| 48 |
1 |
0.4 |
6.7 |
| 50 |
1 |
0.4 |
6.7 |
| 57 |
2 |
0.8 |
13.3 |
| 59 |
1 |
0.4 |
6.7 |
| 60 |
1 |
0.4 |
6.7 |
| 61 |
1 |
0.4 |
6.7 |
| 62 |
2 |
0.8 |
13.3 |
| 67 |
1 |
0.4 |
6.7 |
| 68 |
1 |
0.4 |
6.7 |
| 72 |
1 |
0.4 |
6.7 |
| NA |
226 |
93.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Cirrhosis, liver damage
b4la <- as.factor(d[,"b4la"])
# Make "*" to NA
b4la[which(b4la=="*")]<-"NA"
levels(b4la) <- list(No="1",
Yes="2")
b4la <- ordered(b4la, c("No", "Yes"))
new.d <- data.frame(new.d, b4la)
new.d <- apply_labels(new.d, b4la = "Cirrhosis, liver damage")
temp.d <- data.frame (new.d, b4la)
result<-questionr::freq(temp.d$b4la, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Cirrhosis, liver damage")
Cirrhosis, liver damage
| No |
238 |
98.8 |
99.2 |
| Yes |
2 |
0.8 |
0.8 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4lb <- as.factor(d[,"b4lb"])
new.d <- data.frame(new.d, b4lb)
new.d <- apply_labels(new.d, b4lb = "Cirrhosis, liver damage age")
temp.d <- data.frame (new.d, b4lb)
result<-questionr::freq(temp.d$b4lb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Cirrhosis, liver damage Age")
Cirrhosis, liver damage Age
| 49 |
1 |
0.4 |
50 |
| 74 |
1 |
0.4 |
50 |
| NA |
239 |
99.2 |
NA |
| Total |
241 |
100.0 |
100 |
# Arthritis
b4ma <- as.factor(d[,"b4ma"])
# Make "*" to NA
b4ma[which(b4ma=="*")]<-"NA"
levels(b4ma) <- list(No="1",
Yes="2")
b4ma <- ordered(b4ma, c("No", "Yes"))
new.d <- data.frame(new.d, b4ma)
new.d <- apply_labels(new.d, b4ma = "Arthritis")
temp.d <- data.frame (new.d, b4ma)
result<-questionr::freq(temp.d$b4ma, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Arthritis")
Arthritis
| No |
198 |
82.2 |
83.2 |
| Yes |
40 |
16.6 |
16.8 |
| NA |
3 |
1.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4mb <- as.factor(d[,"b4mb"])
new.d <- data.frame(new.d, b4mb)
new.d <- apply_labels(new.d, b4mb = "Arthritis age")
temp.d <- data.frame (new.d, b4mb)
result<-questionr::freq(temp.d$b4mb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Arthritis Age")
Arthritis Age
| 19 |
1 |
0.4 |
2.9 |
| 23 |
1 |
0.4 |
2.9 |
| 30 |
1 |
0.4 |
2.9 |
| 35 |
1 |
0.4 |
2.9 |
| 4 |
1 |
0.4 |
2.9 |
| 40 |
3 |
1.2 |
8.8 |
| 42 |
1 |
0.4 |
2.9 |
| 44 |
1 |
0.4 |
2.9 |
| 45 |
2 |
0.8 |
5.9 |
| 50 |
4 |
1.7 |
11.8 |
| 51 |
1 |
0.4 |
2.9 |
| 54 |
1 |
0.4 |
2.9 |
| 55 |
5 |
2.1 |
14.7 |
| 56 |
2 |
0.8 |
5.9 |
| 57 |
1 |
0.4 |
2.9 |
| 58 |
1 |
0.4 |
2.9 |
| 60 |
5 |
2.1 |
14.7 |
| 63 |
1 |
0.4 |
2.9 |
| 65 |
1 |
0.4 |
2.9 |
| NA |
207 |
85.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# Dementia
b4na <- as.factor(d[,"b4na"])
# Make "*" to NA
b4na[which(b4na=="*")]<-"NA"
levels(b4na) <- list(No="1",
Yes="2")
b4na <- ordered(b4na, c("No", "Yes"))
new.d <- data.frame(new.d, b4na)
new.d <- apply_labels(new.d, b4na = "Dementia")
temp.d <- data.frame (new.d, b4na)
result<-questionr::freq(temp.d$b4na, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Dementia")
Dementia
| No |
237 |
98.3 |
100 |
| Yes |
0 |
0.0 |
0 |
| NA |
4 |
1.7 |
NA |
| Total |
241 |
100.0 |
100 |
b4nb <- as.factor(d[,"b4nb"])
new.d <- data.frame(new.d, b4nb)
new.d <- apply_labels(new.d, b4nb = "Dementia age")
temp.d <- data.frame (new.d, b4nb)
result<-questionr::freq(temp.d$b4nb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Dementia Age")
Dementia Age
| NA |
241 |
100 |
NA |
| Total |
241 |
100 |
100 |
# Depression
b4oa <- as.factor(d[,"b4oa"])
# Make "*" to NA
b4oa[which(b4oa=="*")]<-"NA"
levels(b4oa) <- list(No="1",
Yes="2")
b4oa <- ordered(b4oa, c("No", "Yes"))
new.d <- data.frame(new.d, b4oa)
new.d <- apply_labels(new.d, b4oa = "Depression")
temp.d <- data.frame (new.d, b4oa)
result<-questionr::freq(temp.d$b4oa, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Depression")
Depression
| No |
196 |
81.3 |
83.1 |
| Yes |
40 |
16.6 |
16.9 |
| NA |
5 |
2.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4ob <- as.factor(d[,"b4ob"])
new.d <- data.frame(new.d, b4ob)
new.d <- apply_labels(new.d, b4ob = "Depression age")
temp.d <- data.frame (new.d, b4ob)
result<-questionr::freq(temp.d$b4ob, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Depression Age")
Depression Age
| 16 |
1 |
0.4 |
3.0 |
| 19 |
1 |
0.4 |
3.0 |
| 20 |
2 |
0.8 |
6.1 |
| 24 |
1 |
0.4 |
3.0 |
| 25 |
1 |
0.4 |
3.0 |
| 34 |
1 |
0.4 |
3.0 |
| 40 |
1 |
0.4 |
3.0 |
| 44 |
1 |
0.4 |
3.0 |
| 45 |
2 |
0.8 |
6.1 |
| 47 |
1 |
0.4 |
3.0 |
| 50 |
4 |
1.7 |
12.1 |
| 52 |
1 |
0.4 |
3.0 |
| 54 |
1 |
0.4 |
3.0 |
| 56 |
1 |
0.4 |
3.0 |
| 57 |
2 |
0.8 |
6.1 |
| 58 |
2 |
0.8 |
6.1 |
| 59 |
1 |
0.4 |
3.0 |
| 60 |
2 |
0.8 |
6.1 |
| 61 |
2 |
0.8 |
6.1 |
| 64 |
1 |
0.4 |
3.0 |
| 65 |
2 |
0.8 |
6.1 |
| 75 |
1 |
0.4 |
3.0 |
| 98 |
1 |
0.4 |
3.0 |
| NA |
208 |
86.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
# AIDS
b4pa <- as.factor(d[,"b4pa"])
# Make "*" to NA
b4pa[which(b4pa=="*")]<-"NA"
levels(b4pa) <- list(No="1",
Yes="2")
b4pa <- ordered(b4pa, c("No", "Yes"))
new.d <- data.frame(new.d, b4pa)
new.d <- apply_labels(new.d, b4pa = "AIDS")
temp.d <- data.frame (new.d, b4pa)
result<-questionr::freq(temp.d$b4pa, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "AIDS")
AIDS
| No |
233 |
96.7 |
99.6 |
| Yes |
1 |
0.4 |
0.4 |
| NA |
7 |
2.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
b4pb <- as.factor(d[,"b4pb"])
new.d <- data.frame(new.d, b4pb)
new.d <- apply_labels(new.d, b4pb = "AIDS age")
temp.d <- data.frame (new.d, b4pb)
result<-questionr::freq(temp.d$b4pb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "AIDS Age")
AIDS Age
| 59 |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
# Other Cancer
b4qa <- as.factor(d[,"b4qa"])
# Make "*" to NA
b4qa[which(b4qa=="*")]<-"NA"
levels(b4qa) <- list(No="1",
Yes="2")
b4qa <- ordered(b4qa, c("No", "Yes"))
new.d <- data.frame(new.d, b4qa)
new.d <- apply_labels(new.d, b4qa = "Other Cancer")
temp.d <- data.frame (new.d, b4qa)
result<-questionr::freq(temp.d$b4qa, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Other Cancer")
Other Cancer
| No |
212 |
88.0 |
93 |
| Yes |
16 |
6.6 |
7 |
| NA |
13 |
5.4 |
NA |
| Total |
241 |
100.0 |
100 |
b4qb <- as.factor(d[,"b4qb"])
new.d <- data.frame(new.d, b4qb)
new.d <- apply_labels(new.d, b4qb = "Other Cancer age")
temp.d <- data.frame (new.d, b4qb)
result<-questionr::freq(temp.d$b4qb, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "Other Cancer Age")
Other Cancer Age
| 10 |
1 |
0.4 |
6.2 |
| 44 |
2 |
0.8 |
12.5 |
| 50 |
1 |
0.4 |
6.2 |
| 51 |
2 |
0.8 |
12.5 |
| 54 |
1 |
0.4 |
6.2 |
| 59 |
2 |
0.8 |
12.5 |
| 62 |
1 |
0.4 |
6.2 |
| 63 |
2 |
0.8 |
12.5 |
| 66 |
2 |
0.8 |
12.5 |
| 68 |
1 |
0.4 |
6.2 |
| 74 |
1 |
0.4 |
6.2 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
B4Q Other Cancer
b4qother <- d[,"b4qother"]
new.d <- data.frame(new.d, b4qother)
new.d <- apply_labels(new.d, b4qother = "b4qother")
temp.d <- data.frame (new.d, b4qother)
result<-questionr::freq(temp.d$b4qother, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B4Q Other")
B4Q Other
| Bladder |
1 |
0.4 |
6.2 |
| Bladder cancer. |
1 |
0.4 |
6.2 |
| Bone |
1 |
0.4 |
6.2 |
| Breast cancer |
1 |
0.4 |
6.2 |
| CO |
1 |
0.4 |
6.2 |
| Kidney |
1 |
0.4 |
6.2 |
| Leukemia |
1 |
0.4 |
6.2 |
| Lung (left 2016) right-present |
1 |
0.4 |
6.2 |
| Lung cancer. |
1 |
0.4 |
6.2 |
| Meningioma |
1 |
0.4 |
6.2 |
| MPD and AML |
1 |
0.4 |
6.2 |
| Myeloma |
1 |
0.4 |
6.2 |
| Neck cancer |
1 |
0.4 |
6.2 |
| Over active white blood cell |
1 |
0.4 |
6.2 |
| Thyroid |
1 |
0.4 |
6.2 |
| Yes, prostate cancer. |
1 |
0.4 |
6.2 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
B5: Routine care
- B5. Where do you usually go for routine medical care (seeing a doctor for any reason, not just for cancer care)?
- 1=Community health center or free clinic
- 2=Hospital (not emergency)/ urgent care clinic
- 3=Private doctor’s office
- 4=Emergency room
- 5=Veteran’s Affairs/VA
- 6=Other type of location
b5 <- as.factor(d[,"b5"])
# Make "*" to NA
b5[which(b5=="*")]<-"NA"
levels(b5) <- list(Community_center_free_clinic="1",
Hospital_urgent_care_clinic="2",
Private_Dr_office="3",
ER="4",
VA="5",
Other="6")
b5 <- ordered(b5, c("Community_center_free_clinic", "Hospital_urgent_care_clinic", "Private_Dr_office", "ER","VA","Other"))
new.d <- data.frame(new.d, b5)
new.d <- apply_labels(new.d, b5 = "routine medical care")
temp.d <- data.frame (new.d, b5)
result<-questionr::freq(temp.d$b5 ,total = TRUE)
kable(result, format = "simple", align = 'l')
| Community_center_free_clinic |
18 |
7.5 |
8.4 |
| Hospital_urgent_care_clinic |
29 |
12.0 |
13.5 |
| Private_Dr_office |
154 |
63.9 |
71.6 |
| ER |
1 |
0.4 |
0.5 |
| VA |
7 |
2.9 |
3.3 |
| Other |
6 |
2.5 |
2.8 |
| NA |
26 |
10.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
B5 Other: Routine care
b5other <- d[,"b5other"]
new.d <- data.frame(new.d, b5other)
new.d <- apply_labels(new.d, b5other = "b5other")
temp.d <- data.frame (new.d, b5other)
result<-questionr::freq(temp.d$b5other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "B5 Other")
B5 Other
| Beaumont Doctors and VA |
1 |
0.4 |
7.7 |
| Dialyse dialysis. |
1 |
0.4 |
7.7 |
| Dr. Feldman (Oakland Family Practice office) |
1 |
0.4 |
7.7 |
| Henry Ford hospital clinic |
1 |
0.4 |
7.7 |
| Karmanos |
1 |
0.4 |
7.7 |
| Karmanos 4100 John |
1 |
0.4 |
7.7 |
| Primary Care |
1 |
0.4 |
7.7 |
| Primary Care Doctor |
1 |
0.4 |
7.7 |
| Primary Doc |
1 |
0.4 |
7.7 |
| Sini Grace Professional Bldg |
1 |
0.4 |
7.7 |
| St. Mary’s Livonia |
1 |
0.4 |
7.7 |
| The —- Plan |
1 |
0.4 |
7.7 |
| Wayne State Urology |
1 |
0.4 |
7.7 |
| NA |
228 |
94.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
C1: Years lived at current address
- C1. How many years have you lived in your current address?
- 1=Less than 1 year
- 2=1-5 years
- 3=6-10 years
- 4=11-15 years
- 5=16-20 years
- 6=21+ years
c1 <- as.factor(d[,"c1"])
# Make "*" to NA
c1[which(c1=="*")]<-"NA"
levels(c1) <- list(Less_than_1_year="1",
years_1_5="2",
years_6_10="3",
years_11_15="4",
years_16_20="5",
years_21_more="6")
c1 <- ordered(c1, c("Less_than_1_year", "years_1_5", "years_6_10", "years_11_15","years_16_20","years_21_more"))
new.d <- data.frame(new.d, c1)
new.d <- apply_labels(new.d, c1 = "living period")
temp.d <- data.frame (new.d, c1)
result<-questionr::freq(temp.d$c1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l')
| Less_than_1_year |
12 |
5.0 |
5.0 |
5.0 |
5.0 |
| years_1_5 |
43 |
17.8 |
18.0 |
22.8 |
23.0 |
| years_6_10 |
35 |
14.5 |
14.6 |
37.3 |
37.7 |
| years_11_15 |
30 |
12.4 |
12.6 |
49.8 |
50.2 |
| years_16_20 |
22 |
9.1 |
9.2 |
58.9 |
59.4 |
| years_21_more |
97 |
40.2 |
40.6 |
99.2 |
100.0 |
| NA |
2 |
0.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C2A: Feel safe walking in the neighborhood
- On average, I felt/feel safe walking in my neighborhood day or night.
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis)
- Childhood or young adult life (up to age 30)
- 1=Strongly Agree
- 2=Agree
- 3=Neutral (neither agree nor disagree)
- 4=Disagree
- 5=Strongly Disagree
c2a1 <- as.factor(d[,"c2a1"])
# Make "*" to NA
c2a1[which(c2a1=="*")]<-"NA"
levels(c2a1) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2a1 <- ordered(c2a1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2a1)
new.d <- apply_labels(new.d, c2a1 = "walk in the neighborhood-current")
temp.d <- data.frame (new.d, c2a1)
c2a2 <- as.factor(d[,"c2a2"])
# Make "*" to NA
c2a2[which(c2a2=="*")]<-"NA"
levels(c2a2) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2a2 <- ordered(c2a2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2a2)
new.d <- apply_labels(new.d, c2a2 = "walk in the neighborhood-age 31 up")
temp.d <- data.frame (new.d, c2a2)
c2a3 <- as.factor(d[,"c2a3"])
# Make "*" to NA
c2a3[which(c2a3=="*")]<-"NA"
levels(c2a3) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2a3 <- ordered(c2a3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2a3)
new.d <- apply_labels(new.d, c2a3 = "walk in the neighborhood-Childhood or young")
temp.d <- data.frame (new.d, c2a3)
result<-questionr::freq(temp.d$c2a1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Strongly_Agree |
85 |
35.3 |
36.0 |
35.3 |
36.0 |
| Agree |
81 |
33.6 |
34.3 |
68.9 |
70.3 |
| Neutral |
52 |
21.6 |
22.0 |
90.5 |
92.4 |
| Disagree |
12 |
5.0 |
5.1 |
95.4 |
97.5 |
| Strongly_Disagree |
6 |
2.5 |
2.5 |
97.9 |
100.0 |
| NA |
5 |
2.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2a2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
| Strongly_Agree |
66 |
27.4 |
29.3 |
27.4 |
29.3 |
| Agree |
91 |
37.8 |
40.4 |
65.1 |
69.8 |
| Neutral |
46 |
19.1 |
20.4 |
84.2 |
90.2 |
| Disagree |
19 |
7.9 |
8.4 |
92.1 |
98.7 |
| Strongly_Disagree |
3 |
1.2 |
1.3 |
93.4 |
100.0 |
| NA |
16 |
6.6 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2a3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Strongly_Agree |
73 |
30.3 |
33.5 |
30.3 |
33.5 |
| Agree |
80 |
33.2 |
36.7 |
63.5 |
70.2 |
| Neutral |
49 |
20.3 |
22.5 |
83.8 |
92.7 |
| Disagree |
14 |
5.8 |
6.4 |
89.6 |
99.1 |
| Strongly_Disagree |
2 |
0.8 |
0.9 |
90.5 |
100.0 |
| NA |
23 |
9.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C2B: Violence
- Violence was/is not a problem in my neighborhood.
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis)
- Childhood or young adult life (up to age 30)
- 1=Strongly Agree
- 2=Agree
- 3=Neutral (neither agree nor disagree)
- 4=Disagree
- 5=Strongly Disagree
c2b1 <- as.factor(d[,"c2b1"])
# Make "*" to NA
c2b1[which(c2b1=="*")]<-"NA"
levels(c2b1) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2b1 <- ordered(c2b1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2b1)
new.d <- apply_labels(new.d, c2b1 = "Violence in the neighborhood-current")
temp.d <- data.frame (new.d, c2b1)
c2b2 <- as.factor(d[,"c2b2"])
# Make "*" to NA
c2b2[which(c2b2=="*")]<-"NA"
levels(c2b2) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2b2 <- ordered(c2b2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2b2)
new.d <- apply_labels(new.d, c2b2 = "Violence in the neighborhood-age 31 up")
temp.d <- data.frame (new.d, c2b2)
c2b3 <- as.factor(d[,"c2b3"])
# Make "*" to NA
c2b3[which(c2b3=="*")]<-"NA"
levels(c2b3) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2b3 <- ordered(c2b3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2b3)
new.d <- apply_labels(new.d, c2b3 = "Violence in the neighborhood-Childhood or young")
temp.d <- data.frame (new.d, c2b3)
result<-questionr::freq(temp.d$c2b1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Strongly_Agree |
57 |
23.7 |
24.7 |
23.7 |
24.7 |
| Agree |
69 |
28.6 |
29.9 |
52.3 |
54.5 |
| Neutral |
68 |
28.2 |
29.4 |
80.5 |
84.0 |
| Disagree |
24 |
10.0 |
10.4 |
90.5 |
94.4 |
| Strongly_Disagree |
13 |
5.4 |
5.6 |
95.9 |
100.0 |
| NA |
10 |
4.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2b2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
| Strongly_Agree |
39 |
16.2 |
17.6 |
16.2 |
17.6 |
| Agree |
77 |
32.0 |
34.7 |
48.1 |
52.3 |
| Neutral |
65 |
27.0 |
29.3 |
75.1 |
81.5 |
| Disagree |
33 |
13.7 |
14.9 |
88.8 |
96.4 |
| Strongly_Disagree |
8 |
3.3 |
3.6 |
92.1 |
100.0 |
| NA |
19 |
7.9 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2b3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Strongly_Agree |
49 |
20.3 |
22.9 |
20.3 |
22.9 |
| Agree |
64 |
26.6 |
29.9 |
46.9 |
52.8 |
| Neutral |
66 |
27.4 |
30.8 |
74.3 |
83.6 |
| Disagree |
29 |
12.0 |
13.6 |
86.3 |
97.2 |
| Strongly_Disagree |
6 |
2.5 |
2.8 |
88.8 |
100.0 |
| NA |
27 |
11.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C2C: Safe from crime
- My neighborhood was/is safe from crime.
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis)
- Childhood or young adult life (up to age 30)
- 1=Strongly Agree
- 2=Agree
- 3=Neutral (neither agree nor disagree)
- 4=Disagree
- 5=Strongly Disagree
c2c1 <- as.factor(d[,"c2c1"])
# Make "*" to NA
c2c1[which(c2c1=="*")]<-"NA"
levels(c2c1) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2c1 <- ordered(c2c1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2c1)
new.d <- apply_labels(new.d, c2c1 = "safe from crime in the neighborhood-current")
temp.d <- data.frame (new.d, c2c1)
c2c2 <- as.factor(d[,"c2c2"])
# Make "*" to NA
c2c2[which(c2c2=="*")]<-"NA"
levels(c2c2) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2c2 <- ordered(c2c2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2c2)
new.d <- apply_labels(new.d, c2c2 = "safe from crime in the neighborhood-age 31 up")
temp.d <- data.frame (new.d, c2c2)
c2c3 <- as.factor(d[,"c2c3"])
# Make "*" to NA
c2c3[which(c2c3=="*")]<-"NA"
levels(c2c3) <- list(Strongly_Agree="1",
Agree="2",
Neutral="3",
Disagree="4",
Strongly_Disagree="5")
c2c3 <- ordered(c2c3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, c2c3)
new.d <- apply_labels(new.d, c2c3 = "safe from crime in the neighborhood-Childhood or young")
temp.d <- data.frame (new.d, c2c3)
result<-questionr::freq(temp.d$c2c1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Strongly_Agree |
42 |
17.4 |
18.1 |
17.4 |
18.1 |
| Agree |
52 |
21.6 |
22.4 |
39.0 |
40.5 |
| Neutral |
81 |
33.6 |
34.9 |
72.6 |
75.4 |
| Disagree |
43 |
17.8 |
18.5 |
90.5 |
94.0 |
| Strongly_Disagree |
14 |
5.8 |
6.0 |
96.3 |
100.0 |
| NA |
9 |
3.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2c2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
| Strongly_Agree |
26 |
10.8 |
11.9 |
10.8 |
11.9 |
| Agree |
51 |
21.2 |
23.4 |
32.0 |
35.3 |
| Neutral |
77 |
32.0 |
35.3 |
63.9 |
70.6 |
| Disagree |
48 |
19.9 |
22.0 |
83.8 |
92.7 |
| Strongly_Disagree |
16 |
6.6 |
7.3 |
90.5 |
100.0 |
| NA |
23 |
9.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c2c3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Strongly_Agree |
32 |
13.3 |
15.0 |
13.3 |
15.0 |
| Agree |
51 |
21.2 |
23.9 |
34.4 |
39.0 |
| Neutral |
77 |
32.0 |
36.2 |
66.4 |
75.1 |
| Disagree |
41 |
17.0 |
19.2 |
83.4 |
94.4 |
| Strongly_Disagree |
12 |
5.0 |
5.6 |
88.4 |
100.0 |
| NA |
28 |
11.6 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C3A: Traffic
- C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
- Traffic
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Non/Minor problem
- 2=Somewhat serious problem
- 3=Very serious problem
- 88=Don’t Know
c3a1 <- as.factor(d[,"c3a1"])
# Make "*" to NA
c3a1[which(c3a1=="*")]<-"NA"
levels(c3a1) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3a1 <- ordered(c3a1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3a1)
new.d <- apply_labels(new.d, c3a1 = "A lot of noise-Current")
temp.d <- data.frame (new.d, c3a1)
c3a2 <- as.factor(d[,"c3a2"])
# Make "*" to NA
c3a2[which(c3a2=="*")]<-"NA"
levels(c3a2) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3a2 <- ordered(c3a2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3a2)
new.d <- apply_labels(new.d, c3a2 = "A lot of noise-age 31 up")
temp.d <- data.frame (new.d, c3a2)
c3a3 <- as.factor(d[,"c3a3"])
# Make "*" to NA
c3a3[which(c3a3=="*")]<-"NA"
levels(c3a3) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3a3 <- ordered(c3a3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3a3)
new.d <- apply_labels(new.d, c3a3 = "A lot of noise-Childhood or young")
temp.d <- data.frame (new.d, c3a3)
result<-questionr::freq(temp.d$c3a1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Non_Minor |
158 |
65.6 |
68.4 |
65.6 |
68.4 |
| Somewhat_serious |
47 |
19.5 |
20.3 |
85.1 |
88.7 |
| Very_serious |
12 |
5.0 |
5.2 |
90.0 |
93.9 |
| Dont_know |
14 |
5.8 |
6.1 |
95.9 |
100.0 |
| NA |
10 |
4.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3a2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Non_Minor |
148 |
61.4 |
67.6 |
61.4 |
67.6 |
| Somewhat_serious |
52 |
21.6 |
23.7 |
83.0 |
91.3 |
| Very_serious |
6 |
2.5 |
2.7 |
85.5 |
94.1 |
| Dont_know |
13 |
5.4 |
5.9 |
90.9 |
100.0 |
| NA |
22 |
9.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3a3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Non_Minor |
150 |
62.2 |
69.4 |
62.2 |
69.4 |
| Somewhat_serious |
37 |
15.4 |
17.1 |
77.6 |
86.6 |
| Very_serious |
5 |
2.1 |
2.3 |
79.7 |
88.9 |
| Dont_know |
24 |
10.0 |
11.1 |
89.6 |
100.0 |
| NA |
25 |
10.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C3B: Noise
- C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
- A lot of noise
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Non/Minor problem
- 2=Somewhat serious problem
- 3=Very serious problem
- 88=Don’t Know
c3b1 <- as.factor(d[,"c3b1"])
# Make "*" to NA
c3b1[which(c3b1=="*")]<-"NA"
levels(c3b1) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3b1 <- ordered(c3b1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3b1)
new.d <- apply_labels(new.d, c3b1 = "A lot of noise-Current")
temp.d <- data.frame (new.d, c3b1)
c3b2 <- as.factor(d[,"c3b2"])
# Make "*" to NA
c3b2[which(c3b2=="*")]<-"NA"
levels(c3b2) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3b2 <- ordered(c3b2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3b2)
new.d <- apply_labels(new.d, c3b2 = "A lot of noise-age 31 up")
temp.d <- data.frame (new.d, c3b2)
c3b3 <- as.factor(d[,"c3b3"])
# Make "*" to NA
c3b3[which(c3b3=="*")]<-"NA"
levels(c3b3) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3b3 <- ordered(c3b3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3b3)
new.d <- apply_labels(new.d, c3b3 = "A lot of noise-Childhood or young")
temp.d <- data.frame (new.d, c3b3)
result<-questionr::freq(temp.d$c3b1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Non_Minor |
177 |
73.4 |
77.6 |
73.4 |
77.6 |
| Somewhat_serious |
40 |
16.6 |
17.5 |
90.0 |
95.2 |
| Very_serious |
5 |
2.1 |
2.2 |
92.1 |
97.4 |
| Dont_know |
6 |
2.5 |
2.6 |
94.6 |
100.0 |
| NA |
13 |
5.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3b2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Non_Minor |
160 |
66.4 |
72.4 |
66.4 |
72.4 |
| Somewhat_serious |
42 |
17.4 |
19.0 |
83.8 |
91.4 |
| Very_serious |
9 |
3.7 |
4.1 |
87.6 |
95.5 |
| Dont_know |
10 |
4.1 |
4.5 |
91.7 |
100.0 |
| NA |
20 |
8.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3b3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Non_Minor |
154 |
63.9 |
71.6 |
63.9 |
71.6 |
| Somewhat_serious |
38 |
15.8 |
17.7 |
79.7 |
89.3 |
| Very_serious |
6 |
2.5 |
2.8 |
82.2 |
92.1 |
| Dont_know |
17 |
7.1 |
7.9 |
89.2 |
100.0 |
| NA |
26 |
10.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C3C: Trash and litter
- C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
- Trash and litter
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Non/Minor problem
- 2=Somewhat serious problem
- 3=Very serious problem
- 88=Don’t Know
c3c1 <- as.factor(d[,"c3c1"])
# Make "*" to NA
c3c1[which(c3c1=="*")]<-"NA"
levels(c3c1) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3c1 <- ordered(c3c1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3c1)
new.d <- apply_labels(new.d, c3c1 = "Trash and litter-Current")
temp.d <- data.frame (new.d, c3c1)
c3c2 <- as.factor(d[,"c3c2"])
# Make "*" to NA
c3c2[which(c3c2=="*")]<-"NA"
levels(c3c2) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3c2 <- ordered(c3c2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3c2)
new.d <- apply_labels(new.d, c3c2 = "Trash and litter-age 31 up")
temp.d <- data.frame (new.d, c3c2)
c3c3 <- as.factor(d[,"c3c3"])
# Make "*" to NA
c3c3[which(c3c3=="*")]<-"NA"
levels(c3c3) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3c3 <- ordered(c3c3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3c3)
new.d <- apply_labels(new.d, c3c3 = "Trash and litter-Childhood or young")
temp.d <- data.frame (new.d, c3c3)
result<-questionr::freq(temp.d$c3c1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Non_Minor |
177 |
73.4 |
76.6 |
73.4 |
76.6 |
| Somewhat_serious |
34 |
14.1 |
14.7 |
87.6 |
91.3 |
| Very_serious |
14 |
5.8 |
6.1 |
93.4 |
97.4 |
| Dont_know |
6 |
2.5 |
2.6 |
95.9 |
100.0 |
| NA |
10 |
4.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3c2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Non_Minor |
153 |
63.5 |
69.2 |
63.5 |
69.2 |
| Somewhat_serious |
48 |
19.9 |
21.7 |
83.4 |
91.0 |
| Very_serious |
15 |
6.2 |
6.8 |
89.6 |
97.7 |
| Dont_know |
5 |
2.1 |
2.3 |
91.7 |
100.0 |
| NA |
20 |
8.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3c3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Non_Minor |
154 |
63.9 |
70.6 |
63.9 |
70.6 |
| Somewhat_serious |
43 |
17.8 |
19.7 |
81.7 |
90.4 |
| Very_serious |
10 |
4.1 |
4.6 |
85.9 |
95.0 |
| Dont_know |
11 |
4.6 |
5.0 |
90.5 |
100.0 |
| NA |
23 |
9.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C3D: Too much light at night
- C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
- Too much light at night
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Non/Minor problem
- 2=Somewhat serious problem
- 3=Very serious problem
- 88=Don’t Know
c3d1 <- as.factor(d[,"c3d1"])
# Make "*" to NA
c3d1[which(c3d1=="*")]<-"NA"
levels(c3d1) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3d1 <- ordered(c3d1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3d1)
new.d <- apply_labels(new.d, c3d1 = "Too much light at night-Current")
temp.d <- data.frame (new.d, c3d1)
c3d2 <- as.factor(d[,"c3d2"])
# Make "*" to NA
c3d2[which(c3d2=="*")]<-"NA"
levels(c3d2) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3d2 <- ordered(c3d2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3d2)
new.d <- apply_labels(new.d, c3d2 = "Too much light at night-age 31 up")
temp.d <- data.frame (new.d, c3d2)
c3d3 <- as.factor(d[,"c3d3"])
# Make "*" to NA
c3d3[which(c3d3=="*")]<-"NA"
levels(c3d3) <- list(Non_Minor="1",
Somewhat_serious="2",
Very_serious="3",
Dont_know="88")
c3d3 <- ordered(c3d3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
new.d <- data.frame(new.d, c3d3)
new.d <- apply_labels(new.d, c3d3 = "Too much light at night-Childhood or young")
temp.d <- data.frame (new.d, c3d3)
result<-questionr::freq(temp.d$c3d1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Non_Minor |
208 |
86.3 |
90.4 |
86.3 |
90.4 |
| Somewhat_serious |
11 |
4.6 |
4.8 |
90.9 |
95.2 |
| Very_serious |
2 |
0.8 |
0.9 |
91.7 |
96.1 |
| Dont_know |
9 |
3.7 |
3.9 |
95.4 |
100.0 |
| NA |
11 |
4.6 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3d2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Non_Minor |
187 |
77.6 |
85.4 |
77.6 |
85.4 |
| Somewhat_serious |
21 |
8.7 |
9.6 |
86.3 |
95.0 |
| Very_serious |
1 |
0.4 |
0.5 |
86.7 |
95.4 |
| Dont_know |
10 |
4.1 |
4.6 |
90.9 |
100.0 |
| NA |
22 |
9.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c3d3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Non_Minor |
179 |
74.3 |
83.6 |
74.3 |
83.6 |
| Somewhat_serious |
18 |
7.5 |
8.4 |
81.7 |
92.1 |
| Very_serious |
2 |
0.8 |
0.9 |
82.6 |
93.0 |
| Dont_know |
15 |
6.2 |
7.0 |
88.8 |
100.0 |
| NA |
27 |
11.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C4A: Neighbors talking outside
- C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
- How often do/did you see neighbors talking outside in the yard, on the street, at the corner park, etc.?
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Often
- 2=Sometimes
- 3=Rarely/Never
- 88=Don’t Know
c4a1 <- as.factor(d[,"c4a1"])
# Make "*" to NA
c4a1[which(c4a1=="*")]<-"NA"
levels(c4a1) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4a1 <- ordered(c4a1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4a1)
new.d <- apply_labels(new.d, c4a1 = "Talk outside-Current")
temp.d <- data.frame (new.d, c4a1)
c4a2 <- as.factor(d[,"c4a2"])
# Make "*" to NA
c4a2[which(c4a2=="*")]<-"NA"
levels(c4a2) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4a2 <- ordered(c4a2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4a2)
new.d <- apply_labels(new.d, c4a2 = "Talk outside-age 31 up")
temp.d <- data.frame (new.d, c4a2)
c4a3 <- as.factor(d[,"c4a3"])
# Make "*" to NA
c4a3[which(c4a3=="*")]<-"NA"
levels(c4a3) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4a3 <- ordered(c4a3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4a3)
new.d <- apply_labels(new.d, c4a3 = "Talk outside-Childhood or young")
temp.d <- data.frame (new.d, c4a3)
result<-questionr::freq(temp.d$c4a1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Often |
109 |
45.2 |
46.8 |
45.2 |
46.8 |
| Sometimes |
100 |
41.5 |
42.9 |
86.7 |
89.7 |
| Rarely_Never |
21 |
8.7 |
9.0 |
95.4 |
98.7 |
| Dont_know |
3 |
1.2 |
1.3 |
96.7 |
100.0 |
| NA |
8 |
3.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4a2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Often |
97 |
40.2 |
43.5 |
40.2 |
43.5 |
| Sometimes |
103 |
42.7 |
46.2 |
83.0 |
89.7 |
| Rarely_Never |
17 |
7.1 |
7.6 |
90.0 |
97.3 |
| Dont_know |
6 |
2.5 |
2.7 |
92.5 |
100.0 |
| NA |
18 |
7.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4a3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Often |
129 |
53.5 |
60.0 |
53.5 |
60.0 |
| Sometimes |
59 |
24.5 |
27.4 |
78.0 |
87.4 |
| Rarely_Never |
11 |
4.6 |
5.1 |
82.6 |
92.6 |
| Dont_know |
16 |
6.6 |
7.4 |
89.2 |
100.0 |
| NA |
26 |
10.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C4B: Neighbors watch out for each other
- C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
- How often do/did neighbors watch out for each other, such as calling if they see a problem?
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Often
- 2=Sometimes
- 3=Rarely/Never
- 88=Don’t Know
c4b1 <- as.factor(d[,"c4b1"])
# Make "*" to NA
c4b1[which(c4b1=="*")]<-"NA"
levels(c4b1) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4b1 <- ordered(c4b1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4b1)
new.d <- apply_labels(new.d, c4b1 = "watch out-Current")
temp.d <- data.frame (new.d, c4b1)
c4b2 <- as.factor(d[,"c4b2"])
# Make "*" to NA
c4b2[which(c4b2=="*")]<-"NA"
levels(c4b2) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4b2 <- ordered(c4b2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4b2)
new.d <- apply_labels(new.d, c4b2 = "watch out-age 31 up")
temp.d <- data.frame (new.d, c4b2)
c4b3 <- as.factor(d[,"c4b3"])
# Make "*" to NA
c4b3[which(c4b3=="*")]<-"NA"
levels(c4b3) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4b3 <- ordered(c4b3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4b3)
new.d <- apply_labels(new.d, c4b3 = "watch out-Childhood or young")
temp.d <- data.frame (new.d, c4b3)
result<-questionr::freq(temp.d$c4b1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Often |
106 |
44.0 |
46.5 |
44.0 |
46.5 |
| Sometimes |
88 |
36.5 |
38.6 |
80.5 |
85.1 |
| Rarely_Never |
23 |
9.5 |
10.1 |
90.0 |
95.2 |
| Dont_know |
11 |
4.6 |
4.8 |
94.6 |
100.0 |
| NA |
13 |
5.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4b2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Often |
96 |
39.8 |
43.8 |
39.8 |
43.8 |
| Sometimes |
88 |
36.5 |
40.2 |
76.3 |
84.0 |
| Rarely_Never |
23 |
9.5 |
10.5 |
85.9 |
94.5 |
| Dont_know |
12 |
5.0 |
5.5 |
90.9 |
100.0 |
| NA |
22 |
9.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4b3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Often |
128 |
53.1 |
60.7 |
53.1 |
60.7 |
| Sometimes |
50 |
20.7 |
23.7 |
73.9 |
84.4 |
| Rarely_Never |
13 |
5.4 |
6.2 |
79.3 |
90.5 |
| Dont_know |
20 |
8.3 |
9.5 |
87.6 |
100.0 |
| NA |
30 |
12.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C4C: Neighbors know by name
- C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
- How many neighbors do/did you know by name?
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Often
- 2=Sometimes
- 3=Rarely/Never
- 88=Don’t Know
c4c1 <- as.factor(d[,"c4c1"])
# Make "*" to NA
c4c1[which(c4c1=="*")]<-"NA"
levels(c4c1) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4c1 <- ordered(c4c1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4c1)
new.d <- apply_labels(new.d, c4c1 = "Know names-Current")
temp.d <- data.frame (new.d, c4c1)
c4c2 <- as.factor(d[,"c4c2"])
# Make "*" to NA
c4c2[which(c4c2=="*")]<-"NA"
levels(c4c2) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4c2 <- ordered(c4c2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4c2)
new.d <- apply_labels(new.d, c4c2 = "Know names-age 31 up")
temp.d <- data.frame (new.d, c4c2)
c4c3 <- as.factor(d[,"c4c3"])
# Make "*" to NA
c4c3[which(c4c3=="*")]<-"NA"
levels(c4c3) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4c3 <- ordered(c4c3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4c3)
new.d <- apply_labels(new.d, c4c3 = "Know names-Childhood or young")
temp.d <- data.frame (new.d, c4c3)
result<-questionr::freq(temp.d$c4c1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Often |
67 |
27.8 |
29.6 |
27.8 |
29.6 |
| Sometimes |
104 |
43.2 |
46.0 |
71.0 |
75.7 |
| Rarely_Never |
52 |
21.6 |
23.0 |
92.5 |
98.7 |
| Dont_know |
3 |
1.2 |
1.3 |
93.8 |
100.0 |
| NA |
15 |
6.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4c2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Often |
78 |
32.4 |
36.4 |
32.4 |
36.4 |
| Sometimes |
85 |
35.3 |
39.7 |
67.6 |
76.2 |
| Rarely_Never |
45 |
18.7 |
21.0 |
86.3 |
97.2 |
| Dont_know |
6 |
2.5 |
2.8 |
88.8 |
100.0 |
| NA |
27 |
11.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4c3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Often |
121 |
50.2 |
59.0 |
50.2 |
59.0 |
| Sometimes |
46 |
19.1 |
22.4 |
69.3 |
81.5 |
| Rarely_Never |
27 |
11.2 |
13.2 |
80.5 |
94.6 |
| Dont_know |
11 |
4.6 |
5.4 |
85.1 |
100.0 |
| NA |
36 |
14.9 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C4D: Friendly talks with neighbors
- C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
- How many neighbors do/did you have a friendly talk with at least once a week?
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Often
- 2=Sometimes
- 3=Rarely/Never
- 88=Don’t Know
c4d1 <- as.factor(d[,"c4d1"])
# Make "*" to NA
c4d1[which(c4d1=="*")]<-"NA"
levels(c4d1) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4d1 <- ordered(c4d1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4d1)
new.d <- apply_labels(new.d, c4d1 = "Know names-Current")
temp.d <- data.frame (new.d, c4d1)
c4d2 <- as.factor(d[,"c4d2"])
# Make "*" to NA
c4d2[which(c4d2=="*")]<-"NA"
levels(c4d2) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4d2 <- ordered(c4d2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4d2)
new.d <- apply_labels(new.d, c4d2 = "Know names-age 31 up")
temp.d <- data.frame (new.d, c4d2)
c4d3 <- as.factor(d[,"c4d3"])
# Make "*" to NA
c4d3[which(c4d3=="*")]<-"NA"
levels(c4d3) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4d3 <- ordered(c4d3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4d3)
new.d <- apply_labels(new.d, c4d3 = "Know names-Childhood or young")
temp.d <- data.frame (new.d, c4d3)
result<-questionr::freq(temp.d$c4d1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Often |
33 |
13.7 |
14.5 |
13.7 |
14.5 |
| Sometimes |
98 |
40.7 |
43.2 |
54.4 |
57.7 |
| Rarely_Never |
91 |
37.8 |
40.1 |
92.1 |
97.8 |
| Dont_know |
5 |
2.1 |
2.2 |
94.2 |
100.0 |
| NA |
14 |
5.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4d2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Often |
41 |
17.0 |
19.0 |
17.0 |
19.0 |
| Sometimes |
112 |
46.5 |
51.9 |
63.5 |
70.8 |
| Rarely_Never |
54 |
22.4 |
25.0 |
85.9 |
95.8 |
| Dont_know |
9 |
3.7 |
4.2 |
89.6 |
100.0 |
| NA |
25 |
10.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4d3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Often |
86 |
35.7 |
41.1 |
35.7 |
41.1 |
| Sometimes |
65 |
27.0 |
31.1 |
62.7 |
72.2 |
| Rarely_Never |
39 |
16.2 |
18.7 |
78.8 |
90.9 |
| Dont_know |
19 |
7.9 |
9.1 |
86.7 |
100.0 |
| NA |
32 |
13.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
C4E: Ask neighbors for help
- C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
- How many neighbors could you ask for help, such as to “borrow a cup of sugar” or some other small favor?
- Current (from prostate cancer diagnosis to present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Often
- 2=Sometimes
- 3=Rarely/Never
- 88=Don’t Know
c4e1 <- as.factor(d[,"c4e1"])
# Make "*" to NA
c4e1[which(c4e1=="*")]<-"NA"
levels(c4e1) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4e1 <- ordered(c4e1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4e1)
new.d <- apply_labels(new.d, c4e1 = "ask for help-Current")
temp.d <- data.frame (new.d, c4e1)
c4e2 <- as.factor(d[,"c4e2"])
# Make "*" to NA
c4e2[which(c4e2=="*")]<-"NA"
levels(c4e2) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4e2 <- ordered(c4e2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4e2)
new.d <- apply_labels(new.d, c4e2 = "ask for help-age 31 up")
temp.d <- data.frame (new.d, c4e2)
c4e3 <- as.factor(d[,"c4e3"])
# Make "*" to NA
c4e3[which(c4e3=="*")]<-"NA"
levels(c4e3) <- list(Often="1",
Sometimes="2",
Rarely_Never="3",
Dont_know="88")
c4e3 <- ordered(c4e3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
new.d <- data.frame(new.d, c4e3)
new.d <- apply_labels(new.d, c4e3 = "ask for help-Childhood or young")
temp.d <- data.frame (new.d, c4e3)
result<-questionr::freq(temp.d$c4e1, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
| Often |
34 |
14.1 |
15.3 |
14.1 |
15.3 |
| Sometimes |
86 |
35.7 |
38.7 |
49.8 |
54.1 |
| Rarely_Never |
78 |
32.4 |
35.1 |
82.2 |
89.2 |
| Dont_know |
24 |
10.0 |
10.8 |
92.1 |
100.0 |
| NA |
19 |
7.9 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4e2, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Often |
36 |
14.9 |
17.1 |
14.9 |
17.1 |
| Sometimes |
82 |
34.0 |
38.9 |
49.0 |
55.9 |
| Rarely_Never |
71 |
29.5 |
33.6 |
78.4 |
89.6 |
| Dont_know |
22 |
9.1 |
10.4 |
87.6 |
100.0 |
| NA |
30 |
12.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$c4e3, cum = TRUE ,total = TRUE)
kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Often |
75 |
31.1 |
36.9 |
31.1 |
36.9 |
| Sometimes |
65 |
27.0 |
32.0 |
58.1 |
69.0 |
| Rarely_Never |
39 |
16.2 |
19.2 |
74.3 |
88.2 |
| Dont_know |
24 |
10.0 |
11.8 |
84.2 |
100.0 |
| NA |
38 |
15.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
D1: Treat you because of your race/ethnicity
- D1. In the following questions, we are interested in your perceptions about the way other people have treated you because of your race/ethnicity or skin color.
- At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
- For unfair reasons, have you ever not been hired for a job?
- Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
- Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
- Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
- Have you ever been unfairly denied a bank loan?
- Have you ever been unfairly treated when getting medical care?
- If yes, How stressful was this experience?
- 1=Not at all
- 2=A little
- 3=Somewhat
- 4=Extremely
# a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
d1aa <- as.factor(d[,"d1aa"])
# Make "*" to NA
d1aa[which(d1aa=="*")]<-"NA"
levels(d1aa) <- list(No="1",
Yes="2")
d1aa <- ordered(d1aa, c("No","Yes"))
new.d <- data.frame(new.d, d1aa)
new.d <- apply_labels(new.d, d1aa = "fired or denied a promotion")
temp.d <- data.frame (new.d, d1aa)
d1ab <- as.factor(d[,"d1ab"])
# Make "*" to NA
d1ab[which(d1ab=="*")]<-"NA"
levels(d1ab) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1ab <- ordered(d1ab, c("No","Yes"))
new.d <- data.frame(new.d, d1ab)
new.d <- apply_labels(new.d, d1ab = "fired or denied a promotion-stressful")
temp.d <- data.frame (new.d, d1ab)
result<-questionr::freq(temp.d$d1aa,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
")
a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
| No |
136 |
56.4 |
59.9 |
| Yes |
91 |
37.8 |
40.1 |
| NA |
14 |
5.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$d1ab,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "a. If yes, How stressful was this experience?")
a. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# b. For unfair reasons, have you ever not been hired for a job?
d1ba <- as.factor(d[,"d1ba"])
# Make "*" to NA
d1ba[which(d1ba=="*")]<-"NA"
levels(d1ba) <- list(No="1",
Yes="2")
d1ba <- ordered(d1ba, c("No","Yes"))
new.d <- data.frame(new.d, d1ba)
new.d <- apply_labels(new.d, d1ba = "not be hired")
temp.d <- data.frame (new.d, d1ba)
d1bb <- as.factor(d[,"d1bb"])
# Make "*" to NA
d1bb[which(d1bb=="*")]<-"NA"
levels(d1bb) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1bb <- ordered(d1bb, c("No","Yes"))
new.d <- data.frame(new.d, d1bb)
new.d <- apply_labels(new.d, d1bb = "not be hired-stressful")
temp.d <- data.frame (new.d, d1bb)
result<-questionr::freq(temp.d$d1ba,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. For unfair reasons, have you ever not been hired for a job?")
b. For unfair reasons, have you ever not been hired for a job?
| No |
143 |
59.3 |
65.3 |
| Yes |
76 |
31.5 |
34.7 |
| NA |
22 |
9.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
result<-questionr::freq(temp.d$d1bb,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "b. If yes, How stressful was this experience?")
b. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
d1ca <- as.factor(d[,"d1ca"])
# Make "*" to NA
d1ca[which(d1ca=="*")]<-"NA"
levels(d1ca) <- list(No="1",
Yes="2")
d1ca <- ordered(d1ca, c( "No","Yes"))
new.d <- data.frame(new.d, d1ca)
new.d <- apply_labels(new.d, d1ca = "By police")
temp.d <- data.frame (new.d, d1ca)
result<-questionr::freq(temp.d$d1ca,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?")
c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
| No |
90 |
37.3 |
40.7 |
| Yes |
131 |
54.4 |
59.3 |
| NA |
20 |
8.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
d1cb <- as.factor(d[,"d1cb"])
# Make "*" to NA
d1cb[which(d1cb=="*")]<-"NA"
levels(d1cb) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1cb <- ordered(d1cb, c("No","Yes"))
new.d <- data.frame(new.d, d1cb)
new.d <- apply_labels(new.d, d1cb = "By police-stressful")
temp.d <- data.frame (new.d, d1cb)
result<-questionr::freq(temp.d$d1cb,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "c. If yes, How stressful was this experience?")
c. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
d1da <- as.factor(d[,"d1da"])
# Make "*" to NA
d1da[which(d1da=="*")]<-"NA"
levels(d1da) <- list(No="1",
Yes="2")
d1da <- ordered(d1da, c( "No","Yes"))
new.d <- data.frame(new.d, d1da)
new.d <- apply_labels(new.d, d1da = "unfair education")
temp.d <- data.frame (new.d, d1da)
result<-questionr::freq(temp.d$d1da,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?")
d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
| No |
171 |
71.0 |
76.7 |
| Yes |
52 |
21.6 |
23.3 |
| NA |
18 |
7.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
d1db <- as.factor(d[,"d1db"])
# Make "*" to NA
d1db[which(d1db=="*")]<-"NA"
levels(d1db) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1db <- ordered(d1db, c("No","Yes"))
new.d <- data.frame(new.d, d1db)
new.d <- apply_labels(new.d, d1db = "unfair education-stressful")
temp.d <- data.frame (new.d, d1db)
result<-questionr::freq(temp.d$d1db,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "d. If yes, How stressful was this experience?")
d. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
d1ea <- as.factor(d[,"d1ea"])
# Make "*" to NA
d1ea[which(d1ea=="*")]<-"NA"
levels(d1ea) <- list(No="1",
Yes="2")
d1ea <- ordered(d1ea, c("No","Yes"))
new.d <- data.frame(new.d, d1ea)
new.d <- apply_labels(new.d, d1ea = "refuse to sell or rent")
temp.d <- data.frame (new.d, d1ea)
result<-questionr::freq(temp.d$d1ea,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?")
e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
| No |
195 |
80.9 |
85.9 |
| Yes |
32 |
13.3 |
14.1 |
| NA |
14 |
5.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
d1eb <- as.factor(d[,"d1eb"])
# Make "*" to NA
d1eb[which(d1eb=="*")]<-"NA"
levels(d1eb) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1eb <- ordered(d1eb, c("No","Yes"))
new.d <- data.frame(new.d, d1eb)
new.d <- apply_labels(new.d, d1eb = "refuse to sell or rent-stressful")
temp.d <- data.frame (new.d, d1eb)
result<-questionr::freq(temp.d$d1eb,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "e. If yes, How stressful was this experience?")
e. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# f. Have you ever been unfairly denied a bank loan?
d1fa <- as.factor(d[,"d1fa"])
# Make "*" to NA
d1fa[which(d1fa=="*")]<-"NA"
levels(d1fa) <- list(No="1",
Yes="2")
d1fa <- ordered(d1fa, c("No","Yes"))
new.d <- data.frame(new.d, d1fa)
new.d <- apply_labels(new.d, d1fa = "Bank loan")
temp.d <- data.frame (new.d, d1fa)
result<-questionr::freq(temp.d$d1fa,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f. Have you ever been unfairly denied a bank loan?")
f. Have you ever been unfairly denied a bank loan?
| No |
159 |
66.0 |
71.9 |
| Yes |
62 |
25.7 |
28.1 |
| NA |
20 |
8.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
d1fb <- as.factor(d[,"d1fb"])
# Make "*" to NA
d1fb[which(d1fb=="*")]<-"NA"
levels(d1fb) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1fb <- ordered(d1fb, c("No","Yes"))
new.d <- data.frame(new.d, d1fb)
new.d <- apply_labels(new.d, d1fb = "Bank loan-stressful")
temp.d <- data.frame (new.d, d1fb)
result<-questionr::freq(temp.d$d1fb,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "f. If yes, How stressful was this experience?")
f. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
# g. Have you ever been unfairly treated when getting medical care?
d1ga <- as.factor(d[,"d1ga"])
# Make "*" to NA
d1ga[which(d1ga=="*")]<-"NA"
levels(d1ga) <- list(No="1",
Yes="2")
d1ga <- ordered(d1ga, c("No","Yes"))
new.d <- data.frame(new.d, d1ga)
new.d <- apply_labels(new.d, d1ga = "unfair medical care")
temp.d <- data.frame (new.d, d1ga)
result<-questionr::freq(temp.d$d1ga,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "g. Have you ever been unfairly treated when getting medical care?")
g. Have you ever been unfairly treated when getting medical care?
| No |
191 |
79.3 |
85.7 |
| Yes |
32 |
13.3 |
14.3 |
| NA |
18 |
7.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
d1gb <- as.factor(d[,"d1gb"])
# Make "*" to NA
d1gb[which(d1gb=="*")]<-"NA"
levels(d1gb) <- list(Not_at_all="1",
A_little="2",
Somewhat="3",
Extremely="4")
d1gb <- ordered(d1gb, c("No","Yes"))
new.d <- data.frame(new.d, d1gb)
new.d <- apply_labels(new.d, d1gb = "unfair medical care-stressful")
temp.d <- data.frame (new.d, d1gb)
result<-questionr::freq(temp.d$d1gb,total = TRUE,cum=TRUE)
kable(result, format = "simple", align = 'l', caption = "g. If yes, How stressful was this experience?")
g. If yes, How stressful was this experience?
| No |
0 |
0 |
NaN |
0 |
NaN |
| Yes |
0 |
0 |
NaN |
0 |
NaN |
| NA |
241 |
100 |
NA |
100 |
NA |
| Total |
241 |
100 |
100 |
100 |
100 |
D2: Medical Mistrust
- D2. These next questions are about your current feelings or perceptions regarding healthcare organizations (places where you might get healthcare, like a hospital or clinic). Indicate your level of agreement or disagreement with each statement.
# a. Patients have sometimes been deceived or misled at hospitals.
d2a <- as.factor(d[,"d2a"])
# Make "*" to NA
d2a[which(d2a=="*")]<-"NA"
levels(d2a) <- list(Strongly_Agree="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d2a <- ordered(d2a, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d2a)
new.d <- apply_labels(new.d, d2a = "deceived or misled")
temp.d <- data.frame (new.d, d2a)
result<-questionr::freq(temp.d$d2a,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. Patients have sometimes been deceived or misled at hospitals.")
a. Patients have sometimes been deceived or misled at hospitals.
| Strongly_Agree |
25 |
10.4 |
11.0 |
| Somewhat_Agree |
92 |
38.2 |
40.5 |
| Somewhat_Disagree |
57 |
23.7 |
25.1 |
| Strongly_Disagree |
53 |
22.0 |
23.3 |
| NA |
14 |
5.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
# b. Hospitals often want to know more about your personal affairs or business than they really need to know.
d2b <- as.factor(d[,"d2b"])
# Make "*" to NA
d2b[which(d2b=="*")]<-"NA"
levels(d2b) <- list(Strongly_Agree="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d2b <- ordered(d2b, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d2b)
new.d <- apply_labels(new.d, d2b = "personal affairs")
temp.d <- data.frame (new.d, d2b)
result<-questionr::freq(temp.d$d2b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. Hospitals often want to know more about your personal affairs or business than they really need to know.")
b. Hospitals often want to know more about your personal affairs or business than they really need to know.
| Strongly_Agree |
21 |
8.7 |
9.3 |
| Somewhat_Agree |
89 |
36.9 |
39.4 |
| Somewhat_Disagree |
56 |
23.2 |
24.8 |
| Strongly_Disagree |
60 |
24.9 |
26.5 |
| NA |
15 |
6.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
# c. Hospitals have sometimes done harmful experiments on patients without their knowledge.
d2c <- as.factor(d[,"d2c"])
# Make "*" to NA
d2c[which(d2c=="*")]<-"NA"
levels(d2c) <- list(Strongly_Agree="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d2c <- ordered(d2c, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d2c)
new.d <- apply_labels(new.d, d2c = "harmful experiments")
temp.d <- data.frame (new.d, d2c)
result<-questionr::freq(temp.d$d2c,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. Hospitals have sometimes done harmful experiments on patients without their knowledge.")
c. Hospitals have sometimes done harmful experiments on patients without their knowledge.
| Strongly_Agree |
37 |
15.4 |
17.1 |
| Somewhat_Agree |
63 |
26.1 |
29.0 |
| Somewhat_Disagree |
62 |
25.7 |
28.6 |
| Strongly_Disagree |
55 |
22.8 |
25.3 |
| NA |
24 |
10.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
# d. Rich patients receive better care at hospitals than poor patients.
d2d <- as.factor(d[,"d2d"])
# Make "*" to NA
d2d[which(d2d=="*")]<-"NA"
levels(d2d) <- list(Strongly_Agree="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d2d <- ordered(d2d, c( "Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d2d)
new.d <- apply_labels(new.d, d2d = "Rich patients better care")
temp.d <- data.frame (new.d, d2d)
result<-questionr::freq(temp.d$d2d,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "d. Rich patients receive better care at hospitals than poor patients.")
d. Rich patients receive better care at hospitals than poor patients.
| Strongly_Agree |
110 |
45.6 |
48.9 |
| Somewhat_Agree |
56 |
23.2 |
24.9 |
| Somewhat_Disagree |
32 |
13.3 |
14.2 |
| Strongly_Disagree |
27 |
11.2 |
12.0 |
| NA |
16 |
6.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
# e. Male patients receive better care at hospitals than female patients.
d2e <- as.factor(d[,"d2e"])
# Make "*" to NA
d2e[which(d2e=="*")]<-"NA"
levels(d2e) <- list(Strongly_Agree="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d2e <- ordered(d2e, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d2e)
new.d <- apply_labels(new.d, d2e = "Male patients better care")
temp.d <- data.frame (new.d, d2e)
result<-questionr::freq(temp.d$d2e,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e. Male patients receive better care at hospitals than female patients.")
e. Male patients receive better care at hospitals than female patients.
| Strongly_Agree |
10 |
4.1 |
4.6 |
| Somewhat_Agree |
33 |
13.7 |
15.1 |
| Somewhat_Disagree |
87 |
36.1 |
39.9 |
| Strongly_Disagree |
88 |
36.5 |
40.4 |
| NA |
23 |
9.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3A: Treated with less respect
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- You have been treated with less respect than other people
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3a1 <- as.factor(d[,"d3a1"])
# Make "*" to NA
d3a1[which(d3a1=="*")]<-"NA"
levels(d3a1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3a1 <- ordered(d3a1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3a1)
new.d <- apply_labels(new.d, d3a1 = "less respect-current")
temp.d <- data.frame (new.d, d3a1)
result<-questionr::freq(temp.d$d3a1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
77 |
32.0 |
32.5 |
| Rarely |
85 |
35.3 |
35.9 |
| Sometimes |
61 |
25.3 |
25.7 |
| Often |
14 |
5.8 |
5.9 |
| NA |
4 |
1.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3a2 <- as.factor(d[,"d3a2"])
# Make "*" to NA
d3a2[which(d3a2=="*")]<-"NA"
levels(d3a2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3a2 <- ordered(d3a2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3a2)
new.d <- apply_labels(new.d, d3a2 = "less respect-31 up")
temp.d <- data.frame (new.d, d3a2)
result<-questionr::freq(temp.d$d3a2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
55 |
22.8 |
25.1 |
| Rarely |
81 |
33.6 |
37.0 |
| Sometimes |
66 |
27.4 |
30.1 |
| Often |
17 |
7.1 |
7.8 |
| NA |
22 |
9.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3a3 <- as.factor(d[,"d3a3"])
# Make "*" to NA
d3a3[which(d3a3=="*")]<-"NA"
levels(d3a3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3a3 <- ordered(d3a3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3a3)
new.d <- apply_labels(new.d, d3a3 = "less respect-child or young")
temp.d <- data.frame (new.d, d3a3)
result<-questionr::freq(temp.d$d3a3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
59 |
24.5 |
27.2 |
| Rarely |
57 |
23.7 |
26.3 |
| Sometimes |
74 |
30.7 |
34.1 |
| Often |
27 |
11.2 |
12.4 |
| NA |
24 |
10.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3B: Received poorer service
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- You have received poorer service than other people at restaurants or stores
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3b1 <- as.factor(d[,"d3b1"])
# Make "*" to NA
d3b1[which(d3b1=="*")]<-"NA"
levels(d3b1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3b1 <- ordered(d3b1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3b1)
new.d <- apply_labels(new.d, d3b1 = "poorer service-current")
temp.d <- data.frame (new.d, d3b1)
result<-questionr::freq(temp.d$d3b1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
63 |
26.1 |
26.7 |
| Rarely |
86 |
35.7 |
36.4 |
| Sometimes |
72 |
29.9 |
30.5 |
| Often |
15 |
6.2 |
6.4 |
| NA |
5 |
2.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3b2 <- as.factor(d[,"d3b2"])
# Make "*" to NA
d3b2[which(d3b2=="*")]<-"NA"
levels(d3b2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3b2 <- ordered(d3b2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3b2)
new.d <- apply_labels(new.d, d3b2 = "poorer service-31 up")
temp.d <- data.frame (new.d, d3b2)
result<-questionr::freq(temp.d$d3b2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
49 |
20.3 |
22.3 |
| Rarely |
74 |
30.7 |
33.6 |
| Sometimes |
82 |
34.0 |
37.3 |
| Often |
15 |
6.2 |
6.8 |
| NA |
21 |
8.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3b3 <- as.factor(d[,"d3b3"])
# Make "*" to NA
d3b3[which(d3b3=="*")]<-"NA"
levels(d3b3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3b3 <- ordered(d3b3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3b3)
new.d <- apply_labels(new.d, d3b3 = "poorer service-child or young")
temp.d <- data.frame (new.d, d3b3)
result<-questionr::freq(temp.d$d3b3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
49 |
20.3 |
22.7 |
| Rarely |
57 |
23.7 |
26.4 |
| Sometimes |
83 |
34.4 |
38.4 |
| Often |
27 |
11.2 |
12.5 |
| NA |
25 |
10.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3C: Think you are not smart
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- People have acted as if they think you are not smart
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3c1 <- as.factor(d[,"d3c1"])
# Make "*" to NA
d3c1[which(d3c1=="*")]<-"NA"
levels(d3c1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3c1 <- ordered(d3c1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3c1)
new.d <- apply_labels(new.d, d3c1 = "think you are not smart-current")
temp.d <- data.frame (new.d, d3c1)
result<-questionr::freq(temp.d$d3c1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
77 |
32.0 |
33.5 |
| Rarely |
69 |
28.6 |
30.0 |
| Sometimes |
69 |
28.6 |
30.0 |
| Often |
15 |
6.2 |
6.5 |
| NA |
11 |
4.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3c2 <- as.factor(d[,"d3c2"])
# Make "*" to NA
d3c2[which(d3c2=="*")]<-"NA"
levels(d3c2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3c2 <- ordered(d3c2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3c2)
new.d <- apply_labels(new.d, d3c2 = "think you are not smart-31 up")
temp.d <- data.frame (new.d, d3c2)
result<-questionr::freq(temp.d$d3c2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
66 |
27.4 |
30.1 |
| Rarely |
69 |
28.6 |
31.5 |
| Sometimes |
66 |
27.4 |
30.1 |
| Often |
18 |
7.5 |
8.2 |
| NA |
22 |
9.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3c3 <- as.factor(d[,"d3c3"])
# Make "*" to NA
d3c3[which(d3c3=="*")]<-"NA"
levels(d3c3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3c3 <- ordered(d3c3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3c3)
new.d <- apply_labels(new.d, d3c3 = "think you are not smart-child or young")
temp.d <- data.frame (new.d, d3c3)
result<-questionr::freq(temp.d$d3c3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
61 |
25.3 |
28.5 |
| Rarely |
60 |
24.9 |
28.0 |
| Sometimes |
70 |
29.0 |
32.7 |
| Often |
23 |
9.5 |
10.7 |
| NA |
27 |
11.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3D: Be afraid of you
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- People have acted as if they are afraid of you
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3d1 <- as.factor(d[,"d3d1"])
# Make "*" to NA
d3d1[which(d3d1=="*")]<-"NA"
levels(d3d1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3d1 <- ordered(d3d1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3d1)
new.d <- apply_labels(new.d, d3d1 = "be afraid of you-current")
temp.d <- data.frame (new.d, d3d1)
result<-questionr::freq(temp.d$d3d1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
91 |
37.8 |
39.4 |
| Rarely |
65 |
27.0 |
28.1 |
| Sometimes |
60 |
24.9 |
26.0 |
| Often |
15 |
6.2 |
6.5 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3d2 <- as.factor(d[,"d3d2"])
# Make "*" to NA
d3d2[which(d3d2=="*")]<-"NA"
levels(d3d2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3d2 <- ordered(d3d2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3d2)
new.d <- apply_labels(new.d, d3d2 = "be afraid of you-31 up")
temp.d <- data.frame (new.d, d3d2)
result<-questionr::freq(temp.d$d3d2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
75 |
31.1 |
34.2 |
| Rarely |
56 |
23.2 |
25.6 |
| Sometimes |
68 |
28.2 |
31.1 |
| Often |
20 |
8.3 |
9.1 |
| NA |
22 |
9.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3d3 <- as.factor(d[,"d3d3"])
# Make "*" to NA
d3d3[which(d3d3=="*")]<-"NA"
levels(d3d3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3d3 <- ordered(d3d3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3d3)
new.d <- apply_labels(new.d, d3d3 = "be afraid of you-child or young")
temp.d <- data.frame (new.d, d3d3)
result<-questionr::freq(temp.d$d3d3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
75 |
31.1 |
34.9 |
| Rarely |
52 |
21.6 |
24.2 |
| Sometimes |
63 |
26.1 |
29.3 |
| Often |
25 |
10.4 |
11.6 |
| NA |
26 |
10.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3E: Think you are dishonest
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- People have acted as if they think you are dishonest
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3e1 <- as.factor(d[,"d3e1"])
# Make "*" to NA
d3e1[which(d3e1=="*")]<-"NA"
levels(d3e1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3e1 <- ordered(d3e1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3e1)
new.d <- apply_labels(new.d, d3e1 = "think you are dishonest-current")
temp.d <- data.frame (new.d, d3e1)
result<-questionr::freq(temp.d$d3e1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
98 |
40.7 |
41.9 |
| Rarely |
72 |
29.9 |
30.8 |
| Sometimes |
49 |
20.3 |
20.9 |
| Often |
15 |
6.2 |
6.4 |
| NA |
7 |
2.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3e2 <- as.factor(d[,"d3e2"])
# Make "*" to NA
d3e2[which(d3e2=="*")]<-"NA"
levels(d3e2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3e2 <- ordered(d3e2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3e2)
new.d <- apply_labels(new.d, d3e2 = "think you are dishonest-31 up")
temp.d <- data.frame (new.d, d3e2)
result<-questionr::freq(temp.d$d3e2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
83 |
34.4 |
37.9 |
| Rarely |
63 |
26.1 |
28.8 |
| Sometimes |
59 |
24.5 |
26.9 |
| Often |
14 |
5.8 |
6.4 |
| NA |
22 |
9.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3e3 <- as.factor(d[,"d3e3"])
# Make "*" to NA
d3e3[which(d3e3=="*")]<-"NA"
levels(d3e3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3e3 <- ordered(d3e3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3e3)
new.d <- apply_labels(new.d, d3e3 = "think you are dishonest-child or young")
temp.d <- data.frame (new.d, d3e3)
result<-questionr::freq(temp.d$d3e3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
77 |
32.0 |
35.8 |
| Rarely |
56 |
23.2 |
26.0 |
| Sometimes |
64 |
26.6 |
29.8 |
| Often |
18 |
7.5 |
8.4 |
| NA |
26 |
10.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3F: Better than you
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- People have acted as if they’re better than you are
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3f1 <- as.factor(d[,"d3f1"])
# Make "*" to NA
d3f1[which(d3f1=="*")]<-"NA"
levels(d3f1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3f1 <- ordered(d3f1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3f1)
new.d <- apply_labels(new.d, d3f1 = "better than you-current")
temp.d <- data.frame (new.d, d3f1)
result<-questionr::freq(temp.d$d3f1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
44 |
18.3 |
19.1 |
| Rarely |
58 |
24.1 |
25.2 |
| Sometimes |
102 |
42.3 |
44.3 |
| Often |
26 |
10.8 |
11.3 |
| NA |
11 |
4.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3f2 <- as.factor(d[,"d3f2"])
# Make "*" to NA
d3f2[which(d3f2=="*")]<-"NA"
levels(d3f2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3f2 <- ordered(d3f2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3f2)
new.d <- apply_labels(new.d, d3f2 = "better than you-31 up")
temp.d <- data.frame (new.d, d3f2)
result<-questionr::freq(temp.d$d3f2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
26 |
10.8 |
12.0 |
| Rarely |
60 |
24.9 |
27.6 |
| Sometimes |
104 |
43.2 |
47.9 |
| Often |
27 |
11.2 |
12.4 |
| NA |
24 |
10.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3f3 <- as.factor(d[,"d3f3"])
# Make "*" to NA
d3f3[which(d3f3=="*")]<-"NA"
levels(d3f3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3f3 <- ordered(d3f3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3f3)
new.d <- apply_labels(new.d, d3f3 = "better than you-child or young")
temp.d <- data.frame (new.d, d3f3)
result<-questionr::freq(temp.d$d3f3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
32 |
13.3 |
15.0 |
| Rarely |
52 |
21.6 |
24.4 |
| Sometimes |
87 |
36.1 |
40.8 |
| Often |
42 |
17.4 |
19.7 |
| NA |
28 |
11.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3G: Insulted
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- You have been called names or insulted
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3g1 <- as.factor(d[,"d3g1"])
# Make "*" to NA
d3g1[which(d3g1=="*")]<-"NA"
levels(d3g1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3g1 <- ordered(d3g1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3g1)
new.d <- apply_labels(new.d, d3g1 = "called names or insulted-current")
temp.d <- data.frame (new.d, d3g1)
result<-questionr::freq(temp.d$d3g1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
83 |
34.4 |
35.3 |
| Rarely |
79 |
32.8 |
33.6 |
| Sometimes |
62 |
25.7 |
26.4 |
| Often |
11 |
4.6 |
4.7 |
| NA |
6 |
2.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3g2 <- as.factor(d[,"d3g2"])
# Make "*" to NA
d3g2[which(d3g2=="*")]<-"NA"
levels(d3g2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3g2 <- ordered(d3g2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3g2)
new.d <- apply_labels(new.d, d3g2 = "called names or insulted-31 up")
temp.d <- data.frame (new.d, d3g2)
result<-questionr::freq(temp.d$d3g2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
54 |
22.4 |
24.5 |
| Rarely |
80 |
33.2 |
36.4 |
| Sometimes |
75 |
31.1 |
34.1 |
| Often |
11 |
4.6 |
5.0 |
| NA |
21 |
8.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3g3 <- as.factor(d[,"d3g3"])
# Make "*" to NA
d3g3[which(d3g3=="*")]<-"NA"
levels(d3g3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3g3 <- ordered(d3g3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3g3)
new.d <- apply_labels(new.d, d3g3 = "called names or insulted-child or young")
temp.d <- data.frame (new.d, d3g3)
result<-questionr::freq(temp.d$d3g3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
42 |
17.4 |
19.4 |
| Rarely |
59 |
24.5 |
27.3 |
| Sometimes |
86 |
35.7 |
39.8 |
| Often |
29 |
12.0 |
13.4 |
| NA |
25 |
10.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3H: Threatened or harassed
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- You have been threatened or harassed
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3h1 <- as.factor(d[,"d3h1"])
# Make "*" to NA
d3h1[which(d3h1=="*")]<-"NA"
levels(d3h1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3h1 <- ordered(d3h1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3h1)
new.d <- apply_labels(new.d, d3h1 = "threatened or harassed-current")
temp.d <- data.frame (new.d, d3h1)
result<-questionr::freq(temp.d$d3h1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
121 |
50.2 |
52.8 |
| Rarely |
70 |
29.0 |
30.6 |
| Sometimes |
35 |
14.5 |
15.3 |
| Often |
3 |
1.2 |
1.3 |
| NA |
12 |
5.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3h2 <- as.factor(d[,"d3h2"])
# Make "*" to NA
d3h2[which(d3e1=="*")]<-"NA"
levels(d3h2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3h2 <- ordered(d3h2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3h2)
new.d <- apply_labels(new.d, d3h2 = "threatened or harassed-31 up")
temp.d <- data.frame (new.d, d3h2)
result<-questionr::freq(temp.d$d3h2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
92 |
38.2 |
42.6 |
| Rarely |
80 |
33.2 |
37.0 |
| Sometimes |
36 |
14.9 |
16.7 |
| Often |
8 |
3.3 |
3.7 |
| NA |
25 |
10.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3h3 <- as.factor(d[,"d3h3"])
# Make "*" to NA
d3h3[which(d3h3=="*")]<-"NA"
levels(d3h3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3h3 <- ordered(d3h3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3h3)
new.d <- apply_labels(new.d, d3h3 = "threatened or harassed-child or young")
temp.d <- data.frame (new.d, d3h3)
result<-questionr::freq(temp.d$d3h3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
74 |
30.7 |
34.7 |
| Rarely |
66 |
27.4 |
31.0 |
| Sometimes |
59 |
24.5 |
27.7 |
| Often |
14 |
5.8 |
6.6 |
| NA |
28 |
11.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3I: Followed around in stores
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- You have been followed around in stores
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3i1 <- as.factor(d[,"d3i1"])
# Make "*" to NA
d3i1[which(d3e1=="*")]<-"NA"
levels(d3i1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3i1 <- ordered(d3i1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3i1)
new.d <- apply_labels(new.d, d3i1 = "be followed-current")
temp.d <- data.frame (new.d, d3i1)
result<-questionr::freq(temp.d$d3i1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
86 |
35.7 |
36.8 |
| Rarely |
70 |
29.0 |
29.9 |
| Sometimes |
59 |
24.5 |
25.2 |
| Often |
19 |
7.9 |
8.1 |
| NA |
7 |
2.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3i2 <- as.factor(d[,"d3i2"])
# Make "*" to NA
d3i1[which(d3i1=="*")]<-"NA"
levels(d3i2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3i2 <- ordered(d3i2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3i2)
new.d <- apply_labels(new.d, d3i2 = "be followed-31 up")
temp.d <- data.frame (new.d, d3i2)
result<-questionr::freq(temp.d$d3i2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
61 |
25.3 |
28.0 |
| Rarely |
64 |
26.6 |
29.4 |
| Sometimes |
73 |
30.3 |
33.5 |
| Often |
20 |
8.3 |
9.2 |
| NA |
23 |
9.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3i3 <- as.factor(d[,"d3i3"])
# Make "*" to NA
d3i1[which(d3i1=="*")]<-"NA"
levels(d3i3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3i3 <- ordered(d3i3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3i3)
new.d <- apply_labels(new.d, d3i3 = "be followed-child or young")
temp.d <- data.frame (new.d, d3i3)
result<-questionr::freq(temp.d$d3i3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
50 |
20.7 |
23.4 |
| Rarely |
51 |
21.2 |
23.8 |
| Sometimes |
73 |
30.3 |
34.1 |
| Often |
40 |
16.6 |
18.7 |
| NA |
27 |
11.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
D3J: How stressful
- D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
- How stressful has any of the above experience (a-i) of unfair treatment usually been for you?
- Current (from prostate cancer diagnosis to the present)
- Age 31 up to just before prostate cancer diagnosis
- Childhood or young adult life (up to age 30)
- 1=Never
- 2=Rarely
- 3=Sometimes
- 4=Often
# 1
d3j1 <- as.factor(d[,"d3j1"])
# Make "*" to NA
d3j1[which(d3j1=="*")]<-"NA"
levels(d3j1) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3j1 <- ordered(d3j1, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3j1)
new.d <- apply_labels(new.d, d3j1 = "How stressful-current")
temp.d <- data.frame (new.d, d3j1)
result<-questionr::freq(temp.d$d3j1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
| Never |
107 |
44.4 |
45.9 |
| Rarely |
76 |
31.5 |
32.6 |
| Sometimes |
37 |
15.4 |
15.9 |
| Often |
13 |
5.4 |
5.6 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
#2
d3j2 <- as.factor(d[,"d3j2"])
# Make "*" to NA
d3j2[which(d3j2=="*")]<-"NA"
levels(d3j2) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3j2 <- ordered(d3j2, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3j2)
new.d <- apply_labels(new.d, d3j2 = "How stressful-31 up")
temp.d <- data.frame (new.d, d3j2)
result<-questionr::freq(temp.d$d3j2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
| Never |
82 |
34.0 |
37.3 |
| Rarely |
73 |
30.3 |
33.2 |
| Sometimes |
52 |
21.6 |
23.6 |
| Often |
13 |
5.4 |
5.9 |
| NA |
21 |
8.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
d3j3 <- as.factor(d[,"d3j3"])
# Make "*" to NA
d3j3[which(d3j3=="*")]<-"NA"
levels(d3j3) <- list(Never="1",
Rarely="2",
Sometimes="3",
Often="4")
d3j3 <- ordered(d3j3, c("Never","Rarely","Sometimes","Often"))
new.d <- data.frame(new.d, d3j3)
new.d <- apply_labels(new.d, d3j3 = "How stressful-child or young")
temp.d <- data.frame (new.d, d3j3)
result<-questionr::freq(temp.d$d3j3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
| Never |
75 |
31.1 |
34.9 |
| Rarely |
69 |
28.6 |
32.1 |
| Sometimes |
46 |
19.1 |
21.4 |
| Often |
25 |
10.4 |
11.6 |
| NA |
26 |
10.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
D4: How you currently see yourself
- D4. These statements are about how you currently see yourself. Indicate your level of agreement or disagreement with each statement.
- You’ve always felt that you could make of your life pretty much what you wanted to make of it.
- Once you make up your mind to do something, you stay with it until the job is completely done.
- You like doing things that other people thought could not be done.
- When things don’t go the way you want them to, that just makes you work even harder.
- Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
- It’s not always easy, but you manage to find a way to do the things you really need to get done.
- Very seldom have you been disappointed by the results of your hard work.
- You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
- In the past, even when things got really tough, you never lost sight of your goals.
- It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
- You don’t let your personal feelings get in the way of doing a job.
- Hard work has really helped you to get ahead in life.
- 1=Strongly Agree
- 2=Somewhat Agree
- 3=Somewhat Disagree
- 4=Strongly Disagree
# a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.
d4a <- as.factor(d[,"d4a"])
# Make "*" to NA
d4a[which(d4a=="*")]<-"NA"
levels(d4a) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4a <- ordered(d4a, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4a)
new.d <- apply_labels(new.d, d4a = "make life")
temp.d <- data.frame (new.d, d4a)
result<-questionr::freq(temp.d$d4a,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.")
a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.
| Strongly_Agree |
108 |
44.8 |
45.6 |
44.8 |
45.6 |
| Somewhat_Agree |
98 |
40.7 |
41.4 |
85.5 |
86.9 |
| Somewhat_Disagree |
25 |
10.4 |
10.5 |
95.9 |
97.5 |
| Strongly_Disagree |
6 |
2.5 |
2.5 |
98.3 |
100.0 |
| NA |
4 |
1.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# b. Once you make up your mind to do something, you stay with it until the job is completely done.
d4b <- as.factor(d[,"d4b"])
# Make "*" to NA
d4b[which(d4b=="*")]<-"NA"
levels(d4b) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4b <- ordered(d4b, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4b)
new.d <- apply_labels(new.d, d4b = "until job is done")
temp.d <- data.frame (new.d, d4b)
result<-questionr::freq(temp.d$d4b,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. Once you make up your mind to do something, you stay with it until the job is completely done.")
b. Once you make up your mind to do something, you stay with it until the job is completely done.
| Strongly_Agree |
156 |
64.7 |
65.5 |
64.7 |
65.5 |
| Somewhat_Agree |
73 |
30.3 |
30.7 |
95.0 |
96.2 |
| Somewhat_Disagree |
8 |
3.3 |
3.4 |
98.3 |
99.6 |
| Strongly_Disagree |
1 |
0.4 |
0.4 |
98.8 |
100.0 |
| NA |
3 |
1.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# c. You like doing things that other people thought could not be done.
d4c <- as.factor(d[,"d4c"])
# Make "*" to NA
d4c[which(d4c=="*")]<-"NA"
levels(d4c) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4c <- ordered(d4c, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4c)
new.d <- apply_labels(new.d, d4c = "until job is done")
temp.d <- data.frame (new.d, d4c)
result<-questionr::freq(temp.d$d4c,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. You like doing things that other people thought could not be done.")
c. You like doing things that other people thought could not be done.
| Strongly_Agree |
107 |
44.4 |
45.9 |
44.4 |
45.9 |
| Somewhat_Agree |
94 |
39.0 |
40.3 |
83.4 |
86.3 |
| Somewhat_Disagree |
27 |
11.2 |
11.6 |
94.6 |
97.9 |
| Strongly_Disagree |
5 |
2.1 |
2.1 |
96.7 |
100.0 |
| NA |
8 |
3.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# d. When things don’t go the way you want them to, that just makes you work even harder.
d4d <- as.factor(d[,"d4d"])
# Make "*" to NA
d4d[which(d4d=="*")]<-"NA"
levels(d4d) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4d <- ordered(d4d, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4d)
new.d <- apply_labels(new.d, d4d = "until job is done")
temp.d <- data.frame (new.d, d4d)
result<-questionr::freq(temp.d$d4d,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "d. When things don’t go the way you want them to, that just makes you work even harder.")
d. When things don’t go the way you want them to, that just makes you work even harder.
| Strongly_Agree |
92 |
38.2 |
38.8 |
38.2 |
38.8 |
| Somewhat_Agree |
107 |
44.4 |
45.1 |
82.6 |
84.0 |
| Somewhat_Disagree |
32 |
13.3 |
13.5 |
95.9 |
97.5 |
| Strongly_Disagree |
6 |
2.5 |
2.5 |
98.3 |
100.0 |
| NA |
4 |
1.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
d4e <- as.factor(d[,"d4e"])
# Make "*" to NA
d4e[which(d4e=="*")]<-"NA"
levels(d4e) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4e <- ordered(d4e, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4e)
new.d <- apply_labels(new.d, d4e = "do it yourself")
temp.d <- data.frame (new.d, d4e)
result<-questionr::freq(temp.d$d4e,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.")
e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
| Strongly_Agree |
94 |
39.0 |
39.8 |
39.0 |
39.8 |
| Somewhat_Agree |
95 |
39.4 |
40.3 |
78.4 |
80.1 |
| Somewhat_Disagree |
38 |
15.8 |
16.1 |
94.2 |
96.2 |
| Strongly_Disagree |
9 |
3.7 |
3.8 |
97.9 |
100.0 |
| NA |
5 |
2.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# f. It’s not always easy, but you manage to find a way to do the things you really need to get done.
d4f <- as.factor(d[,"d4f"])
# Make "*" to NA
d4f[which(d4f=="*")]<-"NA"
levels(d4f) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4f <- ordered(d4f, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4f)
new.d <- apply_labels(new.d, d4f = "not easy but get it done")
temp.d <- data.frame (new.d, d4f)
result<-questionr::freq(temp.d$d4f,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f. It’s not always easy, but you manage to find a way to do the things you really need to get done.")
f. It’s not always easy, but you manage to find a way to do the things you really need to get done.
| Strongly_Agree |
143 |
59.3 |
59.8 |
59.3 |
59.8 |
| Somewhat_Agree |
87 |
36.1 |
36.4 |
95.4 |
96.2 |
| Somewhat_Disagree |
8 |
3.3 |
3.3 |
98.8 |
99.6 |
| Strongly_Disagree |
1 |
0.4 |
0.4 |
99.2 |
100.0 |
| NA |
2 |
0.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# g. Very seldom have you been disappointed by the results of your hard work.
d4g <- as.factor(d[,"d4g"])
# Make "*" to NA
d4g[which(d4g=="*")]<-"NA"
levels(d4g) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4g <- ordered(d4g, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4g)
new.d <- apply_labels(new.d, d4g = "seldom disappointed")
temp.d <- data.frame (new.d, d4g)
result<-questionr::freq(temp.d$d4g,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "g. Very seldom have you been disappointed by the results of your hard work.")
g. Very seldom have you been disappointed by the results of your hard work.
| Strongly_Agree |
91 |
37.8 |
38.2 |
37.8 |
38.2 |
| Somewhat_Agree |
105 |
43.6 |
44.1 |
81.3 |
82.4 |
| Somewhat_Disagree |
33 |
13.7 |
13.9 |
95.0 |
96.2 |
| Strongly_Disagree |
9 |
3.7 |
3.8 |
98.8 |
100.0 |
| NA |
3 |
1.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
d4h <- as.factor(d[,"d4h"])
# Make "*" to NA
d4h[which(d4h=="*")]<-"NA"
levels(d4h) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4h <- ordered(d4h, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4h)
new.d <- apply_labels(new.d, d4h = "stand up for believes")
temp.d <- data.frame (new.d, d4h)
result<-questionr::freq(temp.d$d4h,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.")
h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
| Strongly_Agree |
147 |
61.0 |
61.5 |
61.0 |
61.5 |
| Somewhat_Agree |
76 |
31.5 |
31.8 |
92.5 |
93.3 |
| Somewhat_Disagree |
12 |
5.0 |
5.0 |
97.5 |
98.3 |
| Strongly_Disagree |
4 |
1.7 |
1.7 |
99.2 |
100.0 |
| NA |
2 |
0.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
# i. In the past, even when things got really tough, you never lost sight of your goals.
d4i <- as.factor(d[,"d4i"])
# Make "*" to NA
d4i[which(d4i=="*")]<-"NA"
levels(d4i) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4i <- ordered(d4i, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4i)
new.d <- apply_labels(new.d, d4i = "tough but never lost")
temp.d <- data.frame (new.d, d4i)
result<-questionr::freq(temp.d$d4i,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "i. In the past, even when things got really tough, you never lost sight of your goals.")
i. In the past, even when things got really tough, you never lost sight of your goals.
| Strongly_Agree |
119 |
49.4 |
50.2 |
49.4 |
50.2 |
| Somewhat_Agree |
102 |
42.3 |
43.0 |
91.7 |
93.2 |
| Somewhat_Disagree |
10 |
4.1 |
4.2 |
95.9 |
97.5 |
| Strongly_Disagree |
6 |
2.5 |
2.5 |
98.3 |
100.0 |
| NA |
4 |
1.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
#j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
d4j <- as.factor(d[,"d4j"])
# Make "*" to NA
d4j[which(d4j=="*")]<-"NA"
levels(d4j) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4j <- ordered(d4j, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4j)
new.d <- apply_labels(new.d, d4j = "the way you want to do matters")
temp.d <- data.frame (new.d, d4j)
result<-questionr::freq(temp.d$d4j,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.")
j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
| Strongly_Agree |
77 |
32.0 |
32.8 |
32.0 |
32.8 |
| Somewhat_Agree |
99 |
41.1 |
42.1 |
73.0 |
74.9 |
| Somewhat_Disagree |
48 |
19.9 |
20.4 |
92.9 |
95.3 |
| Strongly_Disagree |
11 |
4.6 |
4.7 |
97.5 |
100.0 |
| NA |
6 |
2.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
#k. You don’t let your personal feelings get in the way of doing a job.
d4k <- as.factor(d[,"d4k"])
# Make "*" to NA
d4k[which(d4k=="*")]<-"NA"
levels(d4k) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4k <- ordered(d4k, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4k)
new.d <- apply_labels(new.d, d4k = "personal feelings never get in the way of job")
temp.d <- data.frame (new.d, d4k)
result<-questionr::freq(temp.d$d4k,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "k. You don’t let your personal feelings get in the way of doing a job.")
k. You don’t let your personal feelings get in the way of doing a job.
| Strongly_Agree |
126 |
52.3 |
53.2 |
52.3 |
53.2 |
| Somewhat_Agree |
94 |
39.0 |
39.7 |
91.3 |
92.8 |
| Somewhat_Disagree |
13 |
5.4 |
5.5 |
96.7 |
98.3 |
| Strongly_Disagree |
4 |
1.7 |
1.7 |
98.3 |
100.0 |
| NA |
4 |
1.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
#l. Hard work has really helped you to get ahead in life.
d4l <- as.factor(d[,"d4l"])
# Make "*" to NA
d4l[which(d4l=="*")]<-"NA"
levels(d4l) <- list(Strongly_Agree ="1",
Somewhat_Agree="2",
Somewhat_Disagree="3",
Strongly_Disagree="4")
d4l <- ordered(d4l, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
new.d <- data.frame(new.d, d4l)
new.d <- apply_labels(new.d, d4l = "hard work helps")
temp.d <- data.frame (new.d, d4l)
result<-questionr::freq(temp.d$d4l,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "l. Hard work has really helped you to get ahead in life.")
l. Hard work has really helped you to get ahead in life.
| Strongly_Agree |
136 |
56.4 |
57.1 |
56.4 |
57.1 |
| Somewhat_Agree |
78 |
32.4 |
32.8 |
88.8 |
89.9 |
| Somewhat_Disagree |
16 |
6.6 |
6.7 |
95.4 |
96.6 |
| Strongly_Disagree |
8 |
3.3 |
3.4 |
98.8 |
100.0 |
| NA |
3 |
1.2 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
D5: Childhood
- D5. The next questions are about the time period of your childhood, before the age of 18. These are standard questions asked in many surveys of life history. This information will allow us to understand how problems that may occur early in life may affect health later in life. This is a sensitive topic and some people may feel uncomfortable with these questions. Please keep in mind that you can skip any question you do not want to answer. All information is kept confidential. When you were growing up, during the first 18 years of your life…
- Did you live with anyone who was depressed, mentally ill, or suicidal?
- Did you live with anyone who was a problem drinker or alcoholic?
- Did you live with anyone who used illegal street drugs or who abused prescription medications?
- Did you live with anyone who served time or was sentenced to serve time in a prison, jail, or other correctional facility?
- Were your parents separated or divorced?
- How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
- How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way? Do not include spanking.
- How often did a parent or adult in your home ever swear at you, insult you, or put you down?
- How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
- How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
- How often did anyone at least 5 years older than you or an adult, force you to have sex?
- 1=No
- 2=Yes
- 3=Parents not married
- 88=Don’t know/not sure
- 99=Prefer not to answer”
# a. Did you live with anyone who was depressed, mentally ill, or suicidal?
d5a <- as.factor(d[,"d5a"])
# Make "*" to NA
d5a[which(d5a=="*")]<-"NA"
levels(d5a) <- list(No="1",
Yes="2",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5a <- ordered(d5a, c("No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5a)
new.d <- apply_labels(new.d, d5a = "live with depressed")
temp.d <- data.frame (new.d, d5a)
result<-questionr::freq(temp.d$d5a,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. Did you live with anyone who was depressed, mentally ill, or suicidal?")
a. Did you live with anyone who was depressed, mentally ill, or suicidal?
| No |
178 |
73.9 |
74.2 |
| Yes |
31 |
12.9 |
12.9 |
| Dont_know_not_sure |
29 |
12.0 |
12.1 |
| Prefer_not_to_answer |
2 |
0.8 |
0.8 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
# b. Did you live with anyone who was a problem drinker or alcoholic?
d5b <- as.factor(d[,"d5b"])
# Make "*" to NA
d5b[which(d5b=="*")]<-"NA"
levels(d5b) <- list(No="1",
Yes="2",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5b <- ordered(d5b, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5b)
new.d <- apply_labels(new.d, d5b = "live with alcoholic")
temp.d <- data.frame (new.d, d5b)
result<-questionr::freq(temp.d$d5b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. Did you live with anyone who was a problem drinker or alcoholic?")
b. Did you live with anyone who was a problem drinker or alcoholic?
| No |
144 |
59.8 |
60.0 |
| Yes |
83 |
34.4 |
34.6 |
| Dont_know_not_sure |
11 |
4.6 |
4.6 |
| Prefer_not_to_answer |
2 |
0.8 |
0.8 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
# c. Did you live with anyone who used illegal street drugs or who abused prescription medications?
d5c <- as.factor(d[,"d5c"])
# Make "*" to NA
d5c[which(d5c=="*")]<-"NA"
levels(d5c) <- list(No="1",
Yes="2",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5c <- ordered(d5c, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5c)
new.d <- apply_labels(new.d, d5c = "live with illegal street drugs")
temp.d <- data.frame (new.d, d5c)
result<-questionr::freq(temp.d$d5c,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. Did you live with anyone who used illegal street drugs or who abused prescription medications?")
c. Did you live with anyone who used illegal street drugs or who abused prescription medications?
| No |
181 |
75.1 |
75.7 |
| Yes |
39 |
16.2 |
16.3 |
| Dont_know_not_sure |
17 |
7.1 |
7.1 |
| Prefer_not_to_answer |
2 |
0.8 |
0.8 |
| NA |
2 |
0.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
# d. Did you live with anyone who served time or was sentenced to serve time in a prison, jail, or other correctional facility?
d5d <- as.factor(d[,"d5d"])
# Make "*" to NA
d5d[which(d5d=="*")]<-"NA"
levels(d5d) <- list(No="1",
Yes="2",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5d <- ordered(d5d, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5d)
new.d <- apply_labels(new.d, d5d = "live with people in a prison")
temp.d <- data.frame (new.d, d5d)
result<-questionr::freq(temp.d$d5d,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "d. Did you live with anyone who served time or was sentenced to serve time in a prison, etc?")
d. Did you live with anyone who served time or was sentenced to serve time in a prison, etc?
| No |
201 |
83.4 |
83.8 |
| Yes |
30 |
12.4 |
12.5 |
| Dont_know_not_sure |
5 |
2.1 |
2.1 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
1 |
0.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
# e. Were your parents separated or divorced?
d5e <- as.factor(d[,"d5e"])
# Make "*" to NA
d5e[which(d5e=="*")]<-"NA"
levels(d5e) <- list(No="1",
Yes="2",
Not_married="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5e <- ordered(d5e, c( "No","Yes","Not_married","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5e)
new.d <- apply_labels(new.d, d5e = "parents divorced")
temp.d <- data.frame (new.d, d5e)
result<-questionr::freq(temp.d$d5e,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e. Were your parents separated or divorced?")
e. Were your parents separated or divorced?
| No |
138 |
57.3 |
59.0 |
| Yes |
75 |
31.1 |
32.1 |
| Not_married |
14 |
5.8 |
6.0 |
| Dont_know_not_sure |
3 |
1.2 |
1.3 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
7 |
2.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
d5f <- as.factor(d[,"d5f"])
# Make "*" to NA
d5f[which(d5f=="*")]<-"NA"
levels(d5f) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5f <- ordered(d5f, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5f)
new.d <- apply_labels(new.d, d5f = "violence to each other")
temp.d <- data.frame (new.d, d5f)
result<-questionr::freq(temp.d$d5f,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?")
f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
| Never |
140 |
58.1 |
59.8 |
| Once |
14 |
5.8 |
6.0 |
| More_than_once |
30 |
12.4 |
12.8 |
| Dont_know_not_sure |
37 |
15.4 |
15.8 |
| Prefer_not_to_answer |
13 |
5.4 |
5.6 |
| NA |
7 |
2.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
# g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?
d5g <- as.factor(d[,"d5g"])
# Make "*" to NA
d5g[which(d5g=="*")]<-"NA"
levels(d5g) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5g <- ordered(d5g, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5g)
new.d <- apply_labels(new.d, d5g = "violence to you")
temp.d <- data.frame (new.d, d5g)
result<-questionr::freq(temp.d$d5g,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?")
g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?
| Never |
165 |
68.5 |
70.2 |
| Once |
11 |
4.6 |
4.7 |
| More_than_once |
39 |
16.2 |
16.6 |
| Dont_know_not_sure |
10 |
4.1 |
4.3 |
| Prefer_not_to_answer |
10 |
4.1 |
4.3 |
| NA |
6 |
2.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
# h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?
d5h <- as.factor(d[,"d5h"])
# Make "*" to NA
d5h[which(d5h=="*")]<-"NA"
levels(d5h) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5h <- ordered(d5h, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5h)
new.d <- apply_labels(new.d, d5h = "swear insult")
temp.d <- data.frame (new.d, d5h)
result<-questionr::freq(temp.d$d5h,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?")
h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?
| Never |
125 |
51.9 |
53.6 |
| Once |
10 |
4.1 |
4.3 |
| More_than_once |
73 |
30.3 |
31.3 |
| Dont_know_not_sure |
18 |
7.5 |
7.7 |
| Prefer_not_to_answer |
7 |
2.9 |
3.0 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
# i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
d5i <- as.factor(d[,"d5i"])
# Make "*" to NA
d5i[which(d5i=="*")]<-"NA"
levels(d5i) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5i <- ordered(d5i, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5i)
new.d <- apply_labels(new.d, d5i = "touch you sexually")
temp.d <- data.frame (new.d, d5i)
result<-questionr::freq(temp.d$d5i,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?")
i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
| Never |
211 |
87.6 |
89.8 |
| Once |
9 |
3.7 |
3.8 |
| More_than_once |
7 |
2.9 |
3.0 |
| Dont_know_not_sure |
4 |
1.7 |
1.7 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
6 |
2.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
# j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
d5j <- as.factor(d[,"d5j"])
# Make "*" to NA
d5j[which(d5j=="*")]<-"NA"
levels(d5j) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5j <- ordered(d5j, c("Never","Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5j)
new.d <- apply_labels(new.d, d5j = "touch them sexually")
temp.d <- data.frame (new.d, d5j)
result<-questionr::freq(temp.d$d5j,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?")
j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
| Never |
218 |
90.5 |
92.4 |
| Once |
5 |
2.1 |
2.1 |
| More_than_once |
7 |
2.9 |
3.0 |
| Dont_know_not_sure |
2 |
0.8 |
0.8 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
5 |
2.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
# k. How often did anyone at least 5 years older than you or an adult, force you to have sex?
d5k <- as.factor(d[,"d5k"])
# Make "*" to NA
d5k[which(d5k=="*")]<-"NA"
levels(d5k) <- list(Never="1",
Once="2",
More_than_once="3",
Dont_know_not_sure="88",
Prefer_not_to_answer="99")
d5k <- ordered(d5k, c("Never","Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
new.d <- data.frame(new.d, d5k)
new.d <- apply_labels(new.d, d5k = "forced to have sex")
temp.d <- data.frame (new.d, d5k)
result<-questionr::freq(temp.d$d5k,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "k. How often did anyone at least 5 years older than you or an adult, force you to have sex?")
k. How often did anyone at least 5 years older than you or an adult, force you to have sex?
| Never |
224 |
92.9 |
94.9 |
| Once |
3 |
1.2 |
1.3 |
| More_than_once |
3 |
1.2 |
1.3 |
| Dont_know_not_sure |
2 |
0.8 |
0.8 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
5 |
2.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
E1: First indications
- E1. What were the first indications that suggested that you might have prostate cancer (before you had a prostate biopsy)? Mark all that apply.
- E1_1: 1=I had a high PSA (‘prostate specific antigen’) test
- E1_2: 1=My doctor did a digital rectal exam that indicated an abnormality
- E1_3: 1=I had urinary, sexual, or bowel problems that I went to see my doctor about
- E1_4: 1=I had bone pain that I went to see my doctor about
- E1_5: 1=I was fearful I had cancer
- E1_6: 1=Other
# 1
e1_1 <- as.factor(d[,"e1_1"])
levels(e1_1) <- list(High_PSA_test="1")
new.d <- data.frame(new.d, e1_1)
new.d <- apply_labels(new.d, e1_1 = "High_PSA_test")
temp.d <- data.frame (new.d, e1_1)
result<-questionr::freq(temp.d$e1_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. I had a high PSA (‘prostate specific antigen’) test")
1. I had a high PSA (‘prostate specific antigen’) test
| High_PSA_test |
175 |
72.6 |
100 |
| NA |
66 |
27.4 |
NA |
| Total |
241 |
100.0 |
100 |
#2
e1_2 <- as.factor(d[,"e1_2"])
levels(e1_2) <- list(Digital_rectal_exam="1")
new.d <- data.frame(new.d, e1_2)
new.d <- apply_labels(new.d, e1_2 = "digital rectal exam")
temp.d <- data.frame (new.d, e1_2)
result<-questionr::freq(temp.d$e1_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. My doctor did a digital rectal exam that indicated an abnormality")
2. My doctor did a digital rectal exam that indicated an abnormality
| Digital_rectal_exam |
70 |
29 |
100 |
| NA |
171 |
71 |
NA |
| Total |
241 |
100 |
100 |
#3
e1_3 <- as.factor(d[,"e1_3"])
e1_3[which(e1_3=="*")]<-"NA"
levels(e1_3) <- list(Digital_rectal_exam="1")
new.d <- data.frame(new.d, e1_3)
new.d <- apply_labels(new.d, e1_3 = "urinary sexual or bowel problems")
temp.d <- data.frame (new.d, e1_3)
result<-questionr::freq(temp.d$e1_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. I had urinary, sexual, or bowel problems that I went to see my doctor about")
3. I had urinary, sexual, or bowel problems that I went to see my doctor about
| Digital_rectal_exam |
38 |
15.8 |
100 |
| NA |
203 |
84.2 |
NA |
| Total |
241 |
100.0 |
100 |
#4
e1_4 <- as.factor(d[,"e1_4"])
e1_4[which(e1_4=="*")]<-"NA"
levels(e1_4) <- list(Digital_rectal_exam="1")
new.d <- data.frame(new.d, e1_4)
new.d <- apply_labels(new.d, e1_4 = "bone pain")
temp.d <- data.frame (new.d, e1_4)
result<-questionr::freq(temp.d$e1_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. I had bone pain that I went to see my doctor about")
4. I had bone pain that I went to see my doctor about
| Digital_rectal_exam |
5 |
2.1 |
100 |
| NA |
236 |
97.9 |
NA |
| Total |
241 |
100.0 |
100 |
#5
e1_5 <- as.factor(d[,"e1_5"])
e1_5[which(e1_5=="*")]<-"NA"
levels(e1_5) <- list(Digital_rectal_exam="1")
new.d <- data.frame(new.d, e1_5)
new.d <- apply_labels(new.d, e1_5 = "fearful")
temp.d <- data.frame (new.d, e1_5)
result<-questionr::freq(temp.d$e1_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. I was fearful I had cancer")
5. I was fearful I had cancer
| Digital_rectal_exam |
18 |
7.5 |
100 |
| NA |
223 |
92.5 |
NA |
| Total |
241 |
100.0 |
100 |
E1 Other: First indications
e1other <- d[,"e1other"]
e1other[which(e1other=="#NAME?")]<-"NA"
new.d <- data.frame(new.d, e1other)
new.d <- apply_labels(new.d, e1other = "e1other")
temp.d <- data.frame (new.d, e1other)
result<-questionr::freq(temp.d$e1other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "E1 Other")
E1 Other
| After bladder infection |
1 |
0.4 |
6.2 |
| Blood test positive for cancer |
1 |
0.4 |
6.2 |
| Complications from groin hernia surgery. |
1 |
0.4 |
6.2 |
| Don’t know. |
1 |
0.4 |
6.2 |
| Family history |
1 |
0.4 |
6.2 |
| Frequent urination |
1 |
0.4 |
6.2 |
| I had know clue. |
1 |
0.4 |
6.2 |
| I started having urination issues, very frequent and hard to pass. |
1 |
0.4 |
6.2 |
| Kept having to go to the bathroom |
1 |
0.4 |
6.2 |
| My family died of cancer. |
1 |
0.4 |
6.2 |
| Other family members had prostate cancer |
1 |
0.4 |
6.2 |
| Procedure for bladder |
1 |
0.4 |
6.2 |
| Ref. by my medical doctor to see urologist. |
1 |
0.4 |
6.2 |
| Strong family history |
1 |
0.4 |
6.2 |
| Terrible family history. Mother had nine brothers, seven had prostate cancer. |
1 |
0.4 |
6.2 |
| Thought it was upset stomach and having pain. |
1 |
0.4 |
6.2 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
E2: Before diagnosis
- E2. Before you were diagnosed with prostate cancer:
- Did you have any previous prostate biopsies that were negative?
- If yes, How many?
- Did you have any previous PSA blood tests that were considered normal?
- If yes, How many?
- 1=1
- 2=2
- 3=3
- 4=4
- 5=5 or more
# 1
e2aa <- as.factor(d[,"e2aa"])
# Make "*" to NA
e2aa[which(e2aa=="*")]<-"NA"
levels(e2aa) <- list(Yes="2",
No="1",
Dont_know="88")
e2aa <- ordered(e2aa, c("Yes","No","Dont_know"))
new.d <- data.frame(new.d, e2aa)
new.d <- apply_labels(new.d, e2aa = "prostate biopsies")
temp.d <- data.frame (new.d, e2aa)
result<-questionr::freq(temp.d$e2aa,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. Did you have any previous prostate biopsies that were negative?")
a. Did you have any previous prostate biopsies that were negative?
| Yes |
29 |
12 |
12.7 |
| No |
176 |
73 |
76.9 |
| Dont_know |
24 |
10 |
10.5 |
| NA |
12 |
5 |
NA |
| Total |
241 |
100 |
100.0 |
#2
e2ab <- as.factor(d[,"e2ab"])
# Make "*" to NA
e2ab[which(e2ab=="*")]<-"NA"
levels(e2ab) <- list(One="1",
Two="2",
Three_more="3")
e2ab <- ordered(e2ab, c("One","Two","Three_more"))
new.d <- data.frame(new.d, e2ab)
new.d <- apply_labels(new.d, e2ab = "prostate biopsies_How many")
temp.d <- data.frame (new.d, e2ab)
result<-questionr::freq(temp.d$e2ab,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "If yes, How many?")
If yes, How many?
| One |
16 |
6.6 |
41.0 |
| Two |
13 |
5.4 |
33.3 |
| Three_more |
10 |
4.1 |
25.6 |
| NA |
202 |
83.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
#3
e2ba <- as.factor(d[,"e2ba"])
# Make "*" to NA
e2ba[which(e2ba=="*")]<-"NA"
levels(e2ba) <- list(Yes="2",
No="1",
Dont_know="88")
e2ba <- ordered(e2ba, c("Yes","No","Dont_know"))
new.d <- data.frame(new.d, e2ba)
new.d <- apply_labels(new.d, e2ba = "PSA blood tests")
temp.d <- data.frame (new.d, e2ba)
result<-questionr::freq(temp.d$e2ba,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. Did you have any previous PSA blood tests that were considered normal?")
b. Did you have any previous PSA blood tests that were considered normal?
| Yes |
95 |
39.4 |
44.0 |
| No |
63 |
26.1 |
29.2 |
| Dont_know |
58 |
24.1 |
26.9 |
| NA |
25 |
10.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
#4
e2bb <- as.factor(d[,"e2bb"])
# Make "*" to NA
e2bb[which(e2bb=="*")]<-"NA"
levels(e2bb) <- list(One="1",
Two="2",
Three="3",
Four="4",
Five_more="5")
e2bb <- ordered(e2bb, c("One","Two","Threem","Four","Five_more"))
new.d <- data.frame(new.d, e2bb)
new.d <- apply_labels(new.d, e2bb = "PSA blood tests_how many")
temp.d <- data.frame (new.d, e2bb)
result<-questionr::freq(temp.d$e2bb,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "If yes, How many?")
If yes, How many?
| One |
13 |
5.4 |
15.9 |
| Two |
21 |
8.7 |
25.6 |
| Threem |
0 |
0.0 |
0.0 |
| Four |
5 |
2.1 |
6.1 |
| Five_more |
43 |
17.8 |
52.4 |
| NA |
159 |
66.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
E3: Decision about PSA blood test
- E3. Which of the following best describes your decision to have the PSA blood test that indicated that you had prostate cancer?
- 1=I made the decision alone
- 2=I made the decision together with a family member or friend
- 3=I made the decision together with a family member or friend and my doctor, nurse, or health care provider
- 4= I made the decision together with my doctor, nurse, or health care provider
- 5=My doctor, nurse, or health care provider made the decision
- 88=I do not know or remember how the decision was made
e3 <- as.factor(d[,"e3"])
# Make "*" to NA
e3[which(e3=="*")]<-"NA"
levels(e3) <- list(Alone="1",
With_family_or_friends="2",
With_family_and_doctor="3",
With_doctor="4",
Doctor_made="5",
Dont_know_or_remember="88")
e3 <- ordered(e3, c("Alone","With_family_or_friends","With_family_and_doctor","With_doctor","Doctor_made","Dont_know_or_remember"))
new.d <- data.frame(new.d, e3)
new.d <- apply_labels(new.d, e3 = "decision to have the PSA blood test")
temp.d <- data.frame (new.d, e3)
result<-questionr::freq(temp.d$e3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "E3")
E3
| Alone |
35 |
14.5 |
15.2 |
| With_family_or_friends |
13 |
5.4 |
5.6 |
| With_family_and_doctor |
41 |
17.0 |
17.7 |
| With_doctor |
57 |
23.7 |
24.7 |
| Doctor_made |
68 |
28.2 |
29.4 |
| Dont_know_or_remember |
17 |
7.1 |
7.4 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
E4: Understanding of aggressiveness
- E4. When you were diagnosed with prostate cancer, what was your understanding of how aggressive your cancer might be (i.e., how likely it was that your cancer might progress).
- 1=Low risk of progression
- 2=Intermediate risk of progression
- 3=High risk of progression
- 4=Unknown risk of progression
- 88=Don’t know/Don’t remember
e4 <- as.factor(d[,"e4"])
# Make "*" to NA
e4[which(e4=="*")]<-"NA"
levels(e4) <- list(Low_risk="1",
Intermediate_risk="2",
High_risk="3",
Unknown_risk="4",
Dont_know_or_remember="88")
e4 <- ordered(e4, c("Low_risk","Intermediate_risk","High_risk","Unknown_risk","Dont_know_or_remember"))
new.d <- data.frame(new.d, e4)
new.d <- apply_labels(new.d, e4 = "how aggressive")
temp.d <- data.frame (new.d, e4)
result<-questionr::freq(temp.d$e4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e4")
e4
| Low_risk |
73 |
30.3 |
30.5 |
| Intermediate_risk |
34 |
14.1 |
14.2 |
| High_risk |
65 |
27.0 |
27.2 |
| Unknown_risk |
38 |
15.8 |
15.9 |
| Dont_know_or_remember |
29 |
12.0 |
12.1 |
| NA |
2 |
0.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
E5: Gleason score
- E5. What was your Gleason score when you were diagnosed with prostate cancer?
- 1=6 or less
- 2=7
- 3=8-10
- 88=Don’t know
e5 <- as.factor(d[,"e5"])
# Make "*" to NA
e5[which(e5=="*")]<-"NA"
levels(e5) <- list(Six_less="1",
Seven="2",
Eight_to_ten="3",
Dont_know="88")
e5 <- ordered(e5, c("Six_less","Seven","Eight_to_ten","Dont_know"))
new.d <- data.frame(new.d, e5)
new.d <- apply_labels(new.d, e5 = "Gleason score")
temp.d <- data.frame (new.d, e5)
result<-questionr::freq(temp.d$e5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e5")
e5
| Six_less |
31 |
12.9 |
13.4 |
| Seven |
46 |
19.1 |
19.8 |
| Eight_to_ten |
34 |
14.1 |
14.7 |
| Dont_know |
121 |
50.2 |
52.2 |
| NA |
9 |
3.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
E6: Understanding of stage
- E6. What was your understanding of the stage of your prostate cancer when you were diagnosed?
- 1=Localized, confined to prostate
- 2=Regional, tumor extended to regions around the prostate
- 3=Distant, tumor extended to bones or other parts of body
- 88=Don’t know about the stage
e6 <- as.factor(d[,"e6"])
# Make "*" to NA
e6[which(e6=="*")]<-"NA"
levels(e6) <- list(Localized="1",
Regional="2",
Distant="3",
Dont_know="88")
e6 <- ordered(e6, c("Localized","Regional","Distant","Dont_know"))
new.d <- data.frame(new.d, e6)
new.d <- apply_labels(new.d, e6 = "Stage")
temp.d <- data.frame (new.d, e6)
result<-questionr::freq(temp.d$e6,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e6")
e6
| Localized |
144 |
59.8 |
61.8 |
| Regional |
12 |
5.0 |
5.2 |
| Distant |
8 |
3.3 |
3.4 |
| Dont_know |
69 |
28.6 |
29.6 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
E7: MRI guided biopsy
- E7. Did you have a Magnetic Resonance Imaging (MRI)-guided biopsy to diagnose your cancer? (This is a different type of biopsy than the standard ultrasound biopsy that involves taking 12 random biopsy core samples. Instead, you would be placed in a large donut shaped machine that can be noisy. With assistance from the MRI, 2-3 targeted biopsies would be taken in areas of the tumor shown to be most aggressive.)
e7 <- as.factor(d[,"e7"])
# Make "*" to NA
e7[which(e7=="*")]<-"NA"
levels(e7) <- list(No="1",
Yes="2",
Dont_know="88")
e7 <- ordered(e7, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, e7)
new.d <- apply_labels(new.d, e7 = "Stage")
temp.d <- data.frame (new.d, e7)
result<-questionr::freq(temp.d$e7,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e7")
e7
| No |
76 |
31.5 |
32.6 |
| Yes |
80 |
33.2 |
34.3 |
| Dont_know |
77 |
32.0 |
33.0 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
E8: Decision about treatment
- E8. How did you make your treatment decision?
- 1=I made the decision alone
- 2=I made the decision together with a family member or friend
- 3=I made the decision together with a family member or friend and my doctor, nurse, or health care provider
- 4=I made the decision together with my doctor, nurse, or health care provider
- 5=My doctor , nurse, or health care provider made the decision
- 6=I don’t know or remember how the decision was made
e8 <- as.factor(d[,"e8"])
# Make "*" to NA
e8[which(e8=="*")]<-"NA"
levels(e8) <- list(Alone="1",
With_family_or_friends="2",
With_family_and_doctor="3",
With_doctor="4",
Doctor_made="5",
Dont_know_or_remember="88")
e8 <- ordered(e8, c("Alone","With_family_or_friends","With_family_and_doctor","With_doctor","Doctor_made","Dont_know_or_remember"))
new.d <- data.frame(new.d, e8)
new.d <- apply_labels(new.d, e8 = "treatment decision")
temp.d <- data.frame (new.d, e8)
result<-questionr::freq(temp.d$e8,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e8")
e8
| Alone |
31 |
12.9 |
14.0 |
| With_family_or_friends |
32 |
13.3 |
14.4 |
| With_family_and_doctor |
82 |
34.0 |
36.9 |
| With_doctor |
52 |
21.6 |
23.4 |
| Doctor_made |
25 |
10.4 |
11.3 |
| Dont_know_or_remember |
0 |
0.0 |
0.0 |
| NA |
19 |
7.9 |
NA |
| Total |
241 |
100.0 |
100.0 |
E9: The most important factors of tx
- E9. What were the most important factors you considered in making your treatment decision? Mark all that apply.
- E9_1: 1=Best chance for cure of my cancer
- E9_2: 1=Minimize side effects related to sexual function
- E9_3: 1=Minimize side effects related to urinary function
- E9_4: 1=Minimize side effects related to bowel function
- E9_5: 1=Minimize financial cost
- E9_6: 1=Amount of time and travel required to receive treatments
- E9_7: 1=Length of recovery time
- E9_8: 1=Amount of time away from work
- E9_9: 1=Burden on family members
- E9_10: 1=Reduce worry and concern about cancer
e9_1 <- as.factor(d[,"e9_1"])
levels(e9_1) <- list(Best_for_cure="1")
new.d <- data.frame(new.d, e9_1)
new.d <- apply_labels(new.d, e9_1 = "Best for cure")
temp.d <- data.frame (new.d, e9_1)
result<-questionr::freq(temp.d$e9_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Best chance for cure of my cancer")
1. Best chance for cure of my cancer
| Best_for_cure |
203 |
84.2 |
100 |
| NA |
38 |
15.8 |
NA |
| Total |
241 |
100.0 |
100 |
e9_2 <- as.factor(d[,"e9_2"])
levels(e9_2) <- list(side_effects_sexual="1")
new.d <- data.frame(new.d, e9_2)
new.d <- apply_labels(new.d, e9_2 = "side effects sexual")
temp.d <- data.frame (new.d, e9_2)
result<-questionr::freq(temp.d$e9_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Minimize side effects related to sexual function")
2. Minimize side effects related to sexual function
| side_effects_sexual |
62 |
25.7 |
100 |
| NA |
179 |
74.3 |
NA |
| Total |
241 |
100.0 |
100 |
e9_3 <- as.factor(d[,"e9_3"])
levels(e9_3) <- list(side_effects_urinary="1")
new.d <- data.frame(new.d, e9_3)
new.d <- apply_labels(new.d, e9_3 = "side effects urinary")
temp.d <- data.frame (new.d, e9_3)
result<-questionr::freq(temp.d$e9_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Minimize side effects related to urinary function")
3. Minimize side effects related to urinary function
| side_effects_urinary |
47 |
19.5 |
100 |
| NA |
194 |
80.5 |
NA |
| Total |
241 |
100.0 |
100 |
e9_4 <- as.factor(d[,"e9_4"])
levels(e9_4) <- list(side_effects_bowel="1")
new.d <- data.frame(new.d, e9_4)
new.d <- apply_labels(new.d, e9_4 = "side effects bowel")
temp.d <- data.frame (new.d, e9_4)
result<-questionr::freq(temp.d$e9_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Minimize side effects related to bowel function")
4. Minimize side effects related to bowel function
| side_effects_bowel |
20 |
8.3 |
100 |
| NA |
221 |
91.7 |
NA |
| Total |
241 |
100.0 |
100 |
e9_5 <- as.factor(d[,"e9_5"])
levels(e9_5) <- list(financial_cost="1")
new.d <- data.frame(new.d, e9_5)
new.d <- apply_labels(new.d, e9_5 = "financial cost")
temp.d <- data.frame (new.d, e9_5)
result<-questionr::freq(temp.d$e9_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Minimize financial cost")
5. Minimize financial cost
| financial_cost |
8 |
3.3 |
100 |
| NA |
233 |
96.7 |
NA |
| Total |
241 |
100.0 |
100 |
e9_6 <- as.factor(d[,"e9_6"])
levels(e9_6) <- list(time_and_travel="1")
new.d <- data.frame(new.d, e9_6)
new.d <- apply_labels(new.d, e9_6 = "time and travel")
temp.d <- data.frame (new.d, e9_6)
result<-questionr::freq(temp.d$e9_6,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "6. Amount of time and travel required to receive treatments")
6. Amount of time and travel required to receive treatments
| time_and_travel |
14 |
5.8 |
100 |
| NA |
227 |
94.2 |
NA |
| Total |
241 |
100.0 |
100 |
e9_7 <- as.factor(d[,"e9_7"])
levels(e9_7) <- list(recovery_time="1")
new.d <- data.frame(new.d, e9_7)
new.d <- apply_labels(new.d, e9_7 = "recovery time")
temp.d <- data.frame (new.d, e9_7)
result<-questionr::freq(temp.d$e9_7,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "7. Length of recovery time")
7. Length of recovery time
| recovery_time |
38 |
15.8 |
100 |
| NA |
203 |
84.2 |
NA |
| Total |
241 |
100.0 |
100 |
e9_8 <- as.factor(d[,"e9_8"])
levels(e9_8) <- list(time_away_from_work="1")
new.d <- data.frame(new.d, e9_8)
new.d <- apply_labels(new.d, e9_8 = "time away from work")
temp.d <- data.frame (new.d, e9_8)
result<-questionr::freq(temp.d$e9_8,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "8. Amount of time away from work")
8. Amount of time away from work
| time_away_from_work |
8 |
3.3 |
100 |
| NA |
233 |
96.7 |
NA |
| Total |
241 |
100.0 |
100 |
e9_9 <- as.factor(d[,"e9_9"])
levels(e9_9) <- list(family_burden="1")
new.d <- data.frame(new.d, e9_9)
new.d <- apply_labels(new.d, e9_9 = "family burden")
temp.d <- data.frame (new.d, e9_9)
result<-questionr::freq(temp.d$e9_9,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "9. Burden on family members")
9. Burden on family members
| family_burden |
31 |
12.9 |
100 |
| NA |
210 |
87.1 |
NA |
| Total |
241 |
100.0 |
100 |
e9_10 <- as.factor(d[,"e9_10"])
levels(e9_10) <- list(Reduce_worry_concern="1")
new.d <- data.frame(new.d, e9_10)
new.d <- apply_labels(new.d, e9_10 = "Reduce worry and concern")
temp.d <- data.frame (new.d, e9_10)
result<-questionr::freq(temp.d$e9_10,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "10. Reduce worry and concern about cancer")
10. Reduce worry and concern about cancer
| Reduce_worry_concern |
90 |
37.3 |
100 |
| NA |
151 |
62.7 |
NA |
| Total |
241 |
100.0 |
100 |
E10: Recieved treatment
- E10. Please mark all the treatments that you have received for your prostate cancer? Mark all that apply.
- E10_1: 1=Haven’t had any treatment yet (and not specifically on active surveillance or watchful waiting).
- E10_2: 1=Active Surveillance or watchful waiting
- E10_3: 1=Prostate surgery (prostatectomy)
- E10_4: 1=Radiation to the prostate
- E10_5: 1=Hormonal treatments
- E10_6: 1=Provenge/immunotherapy (Sipuleucel T)
- E10_7: 1=Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)
- E10_8: 1=Other treatments to the prostate (HIFU (High Intensity Focused Ultrasound), RFA (Radio Frequency Ablation), laser, focal therapy, cryotherapy (freezing of the prostate))
e10_1 <- as.factor(d[,"e10_1"])
levels(e10_1) <- list(no_treatment="1")
new.d <- data.frame(new.d, e10_1)
new.d <- apply_labels(new.d, e10_1 = "no treatment")
temp.d <- data.frame (new.d, e10_1)
result<-questionr::freq(temp.d$e10_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Haven’t had any treatment yet (and not specifically on active surveillance or watchful waiting).")
1. Haven’t had any treatment yet (and not specifically on active surveillance or watchful waiting).
| no_treatment |
17 |
7.1 |
100 |
| NA |
224 |
92.9 |
NA |
| Total |
241 |
100.0 |
100 |
e10_2 <- as.factor(d[,"e10_2"])
levels(e10_2) <- list(Active_Surveillance="1")
new.d <- data.frame(new.d, e10_2)
new.d <- apply_labels(new.d, e10_2 = "Active Surveillance")
temp.d <- data.frame (new.d, e10_2)
result<-questionr::freq(temp.d$e10_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Active Surveillance or watchful waiting")
2. Active Surveillance or watchful waiting
| Active_Surveillance |
40 |
16.6 |
100 |
| NA |
201 |
83.4 |
NA |
| Total |
241 |
100.0 |
100 |
e10_3 <- as.factor(d[,"e10_3"])
levels(e10_3) <- list(prostatectomy="1")
new.d <- data.frame(new.d, e10_3)
new.d <- apply_labels(new.d, e10_3 = "prostatectomy")
temp.d <- data.frame (new.d, e10_3)
result<-questionr::freq(temp.d$e10_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Prostate surgery (prostatectomy)")
3. Prostate surgery (prostatectomy)
| prostatectomy |
82 |
34 |
100 |
| NA |
159 |
66 |
NA |
| Total |
241 |
100 |
100 |
e10_4 <- as.factor(d[,"e10_4"])
levels(e10_4) <- list(Radiation="1")
new.d <- data.frame(new.d, e10_4)
new.d <- apply_labels(new.d, e10_4 = "Radiation")
temp.d <- data.frame (new.d, e10_4)
result<-questionr::freq(temp.d$e10_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Radiation to the prostate")
4. Radiation to the prostate
| Radiation |
81 |
33.6 |
100 |
| NA |
160 |
66.4 |
NA |
| Total |
241 |
100.0 |
100 |
e10_5 <- as.factor(d[,"e10_5"])
levels(e10_5) <- list(Hormonal_treatments="1")
new.d <- data.frame(new.d, e10_5)
new.d <- apply_labels(new.d, e10_5 = "Hormonal treatments")
temp.d <- data.frame (new.d, e10_5)
result<-questionr::freq(temp.d$e10_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. Hormonal treatments")
5. Hormonal treatments
| Hormonal_treatments |
39 |
16.2 |
100 |
| NA |
202 |
83.8 |
NA |
| Total |
241 |
100.0 |
100 |
e10_6 <- as.factor(d[,"e10_6"])
levels(e10_6) <- list(Provenge_immunotherapy="1")
new.d <- data.frame(new.d, e10_6)
new.d <- apply_labels(new.d, e10_6 = "Provenge immunotherapy")
temp.d <- data.frame (new.d, e10_6)
result<-questionr::freq(temp.d$e10_6,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "6. Provenge/immunotherapy (Sipuleucel T)")
6. Provenge/immunotherapy (Sipuleucel T)
| Provenge_immunotherapy |
3 |
1.2 |
100 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100 |
e10_7 <- as.factor(d[,"e10_7"])
levels(e10_7) <- list(Chemotherapy="1")
new.d <- data.frame(new.d, e10_7)
new.d <- apply_labels(new.d, e10_7 = "Chemotherapy")
temp.d <- data.frame (new.d, e10_7)
result<-questionr::freq(temp.d$e10_7,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "7. Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)")
7. Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)
| Chemotherapy |
12 |
5 |
100 |
| NA |
229 |
95 |
NA |
| Total |
241 |
100 |
100 |
e10_8 <- as.factor(d[,"e10_8"])
levels(e10_8) <- list(Other="1")
new.d <- data.frame(new.d, e10_8)
new.d <- apply_labels(new.d, e10_8 = "Other")
temp.d <- data.frame (new.d, e10_8)
result<-questionr::freq(temp.d$e10_8,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "8. Other treatments to the prostate ")
8. Other treatments to the prostate
| Other |
11 |
4.6 |
100 |
| NA |
230 |
95.4 |
NA |
| Total |
241 |
100.0 |
100 |
E10-3 Prostatectomy
- E10_3. Prostate surgery (prostatectomy), indicate which type(s):
- E10_3_1: 1=Robotic or laproscopic surgery resulting in removal of the prostate
- E10_3_2: 1=Open surgical removal of the prostate (using a long incision)
- E10_3_3: 1=Had surgery but unsure of type
e10_3_1 <- as.factor(d[,"e10_3_1"])
levels(e10_3_1) <- list(Robotic_laproscopic_surgery="1")
new.d <- data.frame(new.d, e10_3_1)
new.d <- apply_labels(new.d, e10_3_1 = "Robotic or laproscopic surgery")
temp.d <- data.frame (new.d, e10_3_1)
result<-questionr::freq(temp.d$e10_3_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Robotic or laproscopic surgery resulting in removal of the prostate")
1. Robotic or laproscopic surgery resulting in removal of the prostate
| Robotic_laproscopic_surgery |
83 |
34.4 |
100 |
| NA |
158 |
65.6 |
NA |
| Total |
241 |
100.0 |
100 |
e10_3_2 <- as.factor(d[,"e10_3_2"])
levels(e10_3_2) <- list(Open_surgical_removal="1")
new.d <- data.frame(new.d, e10_3_2)
new.d <- apply_labels(new.d, e10_3_2 = "Open surgical removal")
temp.d <- data.frame (new.d, e10_3_2)
result<-questionr::freq(temp.d$e10_3_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. Open surgical removal of the prostate (using a long incision)")
2. Open surgical removal of the prostate (using a long incision)
| Open_surgical_removal |
26 |
10.8 |
100 |
| NA |
215 |
89.2 |
NA |
| Total |
241 |
100.0 |
100 |
e10_3_3 <- as.factor(d[,"e10_3_3"])
levels(e10_3_3) <- list(unsure_of_type="1")
new.d <- data.frame(new.d, e10_3_3)
new.d <- apply_labels(new.d, e10_3_3 = "unsure of type")
temp.d <- data.frame (new.d, e10_3_3)
result<-questionr::freq(temp.d$e10_3_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Had surgery but unsure of type")
3. Had surgery but unsure of type
| unsure_of_type |
12 |
5 |
100 |
| NA |
229 |
95 |
NA |
| Total |
241 |
100 |
100 |
E10-4 Radiation
- E10_4. Radiation to the prostate, indicate which type(s):
- E10_4_1: 1=External beam radiation, where beams are aimed from the outside of your body (including IMRT (Intensity Modulated Radiation Therapy), IGRT (Image-Guided Radiation Therapy), arc therapy, proton beam, cyberknife, or 3D-conformal beam therapy)
- E10_4_2: 1 = Insertion of radiation seed/roods (brachytherapy)
- E10_4_3: 1=Other types of radiation therapy, or unsure of what type
e10_4_1 <- as.factor(d[,"e10_4_1"])
levels(e10_4_1) <- list(External_beam_radiation="1")
new.d <- data.frame(new.d, e10_4_1)
new.d <- apply_labels(new.d, e10_4_1 = "External beam radiation")
temp.d <- data.frame (new.d, e10_4_1)
result<-questionr::freq(temp.d$e10_4_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. External beam radiation")
1. External beam radiation
| External_beam_radiation |
85 |
35.3 |
100 |
| NA |
156 |
64.7 |
NA |
| Total |
241 |
100.0 |
100 |
e10_4_2 <- as.factor(d[,"e10_4_2"])
levels(e10_4_2) <- list(brachytherapy="1")
new.d <- data.frame(new.d, e10_4_2)
new.d <- apply_labels(new.d, e10_4_2 = "brachytherapy")
temp.d <- data.frame (new.d, e10_4_2)
result<-questionr::freq(temp.d$e10_4_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. brachytherapy")
2. brachytherapy
| brachytherapy |
18 |
7.5 |
100 |
| NA |
223 |
92.5 |
NA |
| Total |
241 |
100.0 |
100 |
e10_4_3 <- as.factor(d[,"e10_4_3"])
levels(e10_4_3) <- list(Other_types="1")
new.d <- data.frame(new.d, e10_4_3)
new.d <- apply_labels(new.d, e10_4_3 = "Other types")
temp.d <- data.frame (new.d, e10_4_3)
result<-questionr::freq(temp.d$e10_4_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Other types")
3. Other types
| Other_types |
17 |
7.1 |
100 |
| NA |
224 |
92.9 |
NA |
| Total |
241 |
100.0 |
100 |
E10-5 Hormonal treatments
- E10_5. Hormonal treatments, indicate which type(s):
- E10_5_1: 1=Hormone shots (Lupron, Zoladex, Firmagon, Eligard, Vantas)
- E10_5_2: 1= Surgical removal of testicles (orchiectomy)
- E10_5_3: 1=Casodex (bicalutamide) or Eulexin (flutamide) pills
- E10_5_4: 1=Zytiga (abiraterone) or Xtandi (enzalutamide) pills
- E10_5_5: 1=Had hormone treatment, but unsure of type
e10_5_1 <- as.factor(d[,"e10_5_1"])
levels(e10_5_1) <- list(Hormone_shots="1")
new.d <- data.frame(new.d, e10_5_1)
new.d <- apply_labels(new.d, e10_5_1 = "Hormone shots")
temp.d <- data.frame (new.d, e10_5_1)
result<-questionr::freq(temp.d$e10_5_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "1. Hormone shots")
1. Hormone shots
| Hormone_shots |
56 |
23.2 |
100 |
| NA |
185 |
76.8 |
NA |
| Total |
241 |
100.0 |
100 |
e10_5_2 <- as.factor(d[,"e10_5_2"])
levels(e10_5_2) <- list(orchiectomy="1")
new.d <- data.frame(new.d, e10_5_2)
new.d <- apply_labels(new.d, e10_5_2 = "orchiectomy")
temp.d <- data.frame (new.d, e10_5_2)
result<-questionr::freq(temp.d$e10_5_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "2. orchiectomy")
2. orchiectomy
| orchiectomy |
4 |
1.7 |
100 |
| NA |
237 |
98.3 |
NA |
| Total |
241 |
100.0 |
100 |
e10_5_3 <- as.factor(d[,"e10_5_3"])
levels(e10_5_3) <- list(Casodex_Eulexin="1")
new.d <- data.frame(new.d, e10_5_3)
new.d <- apply_labels(new.d, e10_5_3 = "Casodex or Eulexin pills")
temp.d <- data.frame (new.d, e10_5_3)
result<-questionr::freq(temp.d$e10_5_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "3. Casodex or Eulexin pills")
3. Casodex or Eulexin pills
| Casodex_Eulexin |
7 |
2.9 |
100 |
| NA |
234 |
97.1 |
NA |
| Total |
241 |
100.0 |
100 |
e10_5_4 <- as.factor(d[,"e10_5_4"])
levels(e10_5_4) <- list(Zytiga_Xtandi="1")
new.d <- data.frame(new.d, e10_5_4)
new.d <- apply_labels(new.d, e10_5_4 = "Zytiga or Xtandi pills")
temp.d <- data.frame (new.d, e10_5_4)
result<-questionr::freq(temp.d$e10_5_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "4. Zytiga or Xtandi pills")
4. Zytiga or Xtandi pills
| Zytiga_Xtandi |
5 |
2.1 |
100 |
| NA |
236 |
97.9 |
NA |
| Total |
241 |
100.0 |
100 |
e10_5_5 <- as.factor(d[,"e10_5_5"])
levels(e10_5_5) <- list(unsure_type="1")
new.d <- data.frame(new.d, e10_5_5)
new.d <- apply_labels(new.d, e10_5_5 = "unsure of type")
temp.d <- data.frame (new.d, e10_5_5)
result<-questionr::freq(temp.d$e10_5_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "5. unsure of type")
5. unsure of type
| unsure_type |
16 |
6.6 |
100 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100 |
E11: Treatment decision
- E11. Your treatment decision: How true is each of the following statements for you?
- I had all the information I needed when a treatment was chosen for my prostate cancer
- My doctors told me the whole story about the effects of treatment
- I knew the right questions to ask my doctor
- I had enough time to make a decision about my treatment
- I am satisfied with the choices I made in treating my prostate cancer
- I would recommend the treatment I had to a close relative or friend
- 1=Not at all
- 2=A little bit
- 3=Somewhat
- 4=Quite a bit
- 5=Very much
e11a <- as.factor(d[,"e11a"])
# Make "*" to NA
e11a[which(e11a=="*")]<-"NA"
levels(e11a) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11a)
new.d <- apply_labels(new.d, e11a = "all info")
temp.d <- data.frame (new.d, e11a)
result<-questionr::freq(temp.d$e11a,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. I had all the information I needed when a treatment was chosen for my prostate cancer")
a. I had all the information I needed when a treatment was chosen for my prostate cancer
| Not_at_all |
4 |
1.7 |
1.7 |
| A_little_bit |
12 |
5.0 |
5.2 |
| Somewhat |
32 |
13.3 |
13.9 |
| Quite_a_bit |
55 |
22.8 |
23.8 |
| Very_much |
128 |
53.1 |
55.4 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
e11b <- as.factor(d[,"e11b"])
# Make "*" to NA
e11b[which(e11b=="*")]<-"NA"
levels(e11b) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11b)
new.d <- apply_labels(new.d, e11b = "be told about effects")
temp.d <- data.frame (new.d, e11b)
result<-questionr::freq(temp.d$e11b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. My doctors told me the whole story about the effects of treatment")
b. My doctors told me the whole story about the effects of treatment
| Not_at_all |
3 |
1.2 |
1.3 |
| A_little_bit |
11 |
4.6 |
4.8 |
| Somewhat |
35 |
14.5 |
15.2 |
| Quite_a_bit |
54 |
22.4 |
23.4 |
| Very_much |
128 |
53.1 |
55.4 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
e11c <- as.factor(d[,"e11c"])
# Make "*" to NA
e11c[which(e11c=="*")]<-"NA"
levels(e11c) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11c)
new.d <- apply_labels(new.d, e11c = "right questions to ask")
temp.d <- data.frame (new.d, e11c)
result<-questionr::freq(temp.d$e11c,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. I knew the right questions to ask my doctor")
c. I knew the right questions to ask my doctor
| Not_at_all |
22 |
9.1 |
9.5 |
| A_little_bit |
36 |
14.9 |
15.6 |
| Somewhat |
73 |
30.3 |
31.6 |
| Quite_a_bit |
44 |
18.3 |
19.0 |
| Very_much |
56 |
23.2 |
24.2 |
| NA |
10 |
4.1 |
NA |
| Total |
241 |
100.0 |
100.0 |
e11d <- as.factor(d[,"e11d"])
# Make "*" to NA
e11d[which(e11d=="*")]<-"NA"
levels(e11d) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11d)
new.d <- apply_labels(new.d, e11d = "enough time to decide")
temp.d <- data.frame (new.d, e11d)
result<-questionr::freq(temp.d$e11d,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "d. I had enough time to make a decision about my treatment")
d. I had enough time to make a decision about my treatment
| Not_at_all |
5 |
2.1 |
2.2 |
| A_little_bit |
12 |
5.0 |
5.2 |
| Somewhat |
40 |
16.6 |
17.5 |
| Quite_a_bit |
56 |
23.2 |
24.5 |
| Very_much |
116 |
48.1 |
50.7 |
| NA |
12 |
5.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
e11e <- as.factor(d[,"e11e"])
# Make "*" to NA
e11e[which(e11e=="*")]<-"NA"
levels(e11e) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11e)
new.d <- apply_labels(new.d, e11e = "satisfied with the choices")
temp.d <- data.frame (new.d, e11e)
result<-questionr::freq(temp.d$e11e,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e. I am satisfied with the choices I made in treating my prostate cancer")
e. I am satisfied with the choices I made in treating my prostate cancer
| Not_at_all |
8 |
3.3 |
3.4 |
| A_little_bit |
10 |
4.1 |
4.3 |
| Somewhat |
32 |
13.3 |
13.8 |
| Quite_a_bit |
45 |
18.7 |
19.4 |
| Very_much |
137 |
56.8 |
59.1 |
| NA |
9 |
3.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
e11f <- as.factor(d[,"e11f"])
# Make "*" to NA
e11f[which(e11f=="*")]<-"NA"
levels(e11f) <- list(Not_at_all="1",
A_little_bit="2",
Somewhat="3",
Quite_a_bit="4",
Very_much="5")
new.d <- data.frame(new.d, e11f)
new.d <- apply_labels(new.d, e11f = "would recommend")
temp.d <- data.frame (new.d, e11f)
result<-questionr::freq(temp.d$e11f,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f. I would recommend the treatment I had to a close relative or friend")
f. I would recommend the treatment I had to a close relative or friend
| Not_at_all |
13 |
5.4 |
5.7 |
| A_little_bit |
9 |
3.7 |
3.9 |
| Somewhat |
41 |
17.0 |
18.0 |
| Quite_a_bit |
37 |
15.4 |
16.2 |
| Very_much |
128 |
53.1 |
56.1 |
| NA |
13 |
5.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
E12: Instructions from doctors or nurses
- E12. Have you ever received instructions from a doctor, nurse, or other health professional about who you should see for routine prostate cancer checkups or monitoring?
- 2=Yes
- 1=No
- 88=Don’t Know/not sure
e12 <- as.factor(d[,"e12"])
# Make "*" to NA
e12[which(e12=="*")]<-"NA"
levels(e12) <- list(No="1",
Yes="2",
Dont_know="88")
e12 <- ordered(e12, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, e12)
new.d <- apply_labels(new.d, e12 = "received instructions")
temp.d <- data.frame (new.d, e12)
result<-questionr::freq(temp.d$e12,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e12")
e12
| No |
32 |
13.3 |
13.7 |
| Yes |
183 |
75.9 |
78.5 |
| Dont_know |
18 |
7.5 |
7.7 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
E13: # of PSA blood test
- E13. Since your prostate cancer diagnosis, how many times have you had a PSA blood test?
- 0=None
- 1=1
- 2=2
- 3=3
- 4=4 or more
- 88=Don’t know/not sure
e13 <- as.factor(d[,"e13"])
# Make "*" to NA
e13[which(e13=="*")]<-"NA"
levels(e13) <- list(None="0",
One="1",
Two="2",
Three="3",
Four_more="4",
Dont_know="88")
e13 <- ordered(e13, c("None","One","Two","Three","Four_more","Dont_know"))
new.d <- data.frame(new.d, e13)
new.d <- apply_labels(new.d, e13 = "times of PSA blood test")
temp.d <- data.frame (new.d, e13)
result<-questionr::freq(temp.d$e13,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e13")
e13
| None |
7 |
2.9 |
3.0 |
| One |
8 |
3.3 |
3.4 |
| Two |
17 |
7.1 |
7.2 |
| Three |
37 |
15.4 |
15.7 |
| Four_more |
136 |
56.4 |
57.9 |
| Dont_know |
30 |
12.4 |
12.8 |
| NA |
6 |
2.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
E14: Be told PSA was rising
- E14. Since diagnosis or treatment, have you ever been told that your PSA was rising?
- 2=Yes
- 1=No
- 88=Don’t Know/not sure
e14 <- as.factor(d[,"e14"])
# Make "*" to NA
e14[which(e14=="*")]<-"NA"
levels(e14) <- list(No="1",
Yes="2",
Dont_know="88")
e14 <- ordered(e14, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, e14)
new.d <- apply_labels(new.d, e14 = "been told PSA was rising")
temp.d <- data.frame (new.d, e14)
result<-questionr::freq(temp.d$e14,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e14")
e14
| No |
157 |
65.1 |
67.7 |
| Yes |
49 |
20.3 |
21.1 |
| Dont_know |
26 |
10.8 |
11.2 |
| NA |
9 |
3.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
E15: Recurred or got worse
- E15. Since you were diagnosed, did your doctor ever tell you that your prostate cancer came back (recurred) or progressed (got worse)?
- 2=Yes
- 1=No
- 88=Don’t Know/not sure
e15 <- as.factor(d[,"e15"])
# Make "*" to NA
e15[which(e15=="*")]<-"NA"
levels(e15) <- list(No="1",
Yes="2",
Dont_know="88")
e15 <- ordered(e15, c("No","Yes","Dont_know"))
new.d <- data.frame(new.d, e15)
new.d <- apply_labels(new.d, e15 = "been told recurred progressed")
temp.d <- data.frame (new.d, e15)
result<-questionr::freq(temp.d$e15,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "e15")
e15
| No |
203 |
84.2 |
87.1 |
| Yes |
17 |
7.1 |
7.3 |
| Dont_know |
13 |
5.4 |
5.6 |
| NA |
8 |
3.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
F1: Height
f1cm <- d[,"f1cm"]
new.d <- data.frame(new.d, f1cm)
new.d <- apply_labels(new.d, f1cm = "height in cm")
temp.d <- data.frame (new.d, f1cm)
result<-questionr::freq(temp.d$f1cm,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "How tall are you? (cm)")
How tall are you? (cm)
| 111 |
1 |
0.4 |
16.7 |
| 148 |
1 |
0.4 |
16.7 |
| 2 |
1 |
0.4 |
16.7 |
| 225 |
1 |
0.4 |
16.7 |
| 5 |
1 |
0.4 |
16.7 |
| 7 |
1 |
0.4 |
16.7 |
| NA |
235 |
97.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
F2: Weight
- F2. How much do you current weight?
f2lbs <- d[,"f2lbs"]
new.d <- data.frame(new.d, f2lbs)
new.d <- apply_labels(new.d, f2lbs = "weight in lbs")
temp.d <- data.frame (new.d, f2lbs)
result<-questionr::freq(temp.d$f2lbs,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "How much do you current weight? (lbs)")
How much do you current weight? (lbs)
| *4 |
1 |
0.4 |
0.5 |
| 0* |
1 |
0.4 |
0.5 |
| 1 |
2 |
0.8 |
0.9 |
| 1* |
1 |
0.4 |
0.5 |
| 115 |
2 |
0.8 |
0.9 |
| 130 |
3 |
1.2 |
1.4 |
| 135 |
1 |
0.4 |
0.5 |
| 137 |
1 |
0.4 |
0.5 |
| 140 |
3 |
1.2 |
1.4 |
| 141 |
1 |
0.4 |
0.5 |
| 145 |
2 |
0.8 |
0.9 |
| 147 |
1 |
0.4 |
0.5 |
| 150 |
1 |
0.4 |
0.5 |
| 152 |
1 |
0.4 |
0.5 |
| 153 |
2 |
0.8 |
0.9 |
| 154 |
1 |
0.4 |
0.5 |
| 155 |
3 |
1.2 |
1.4 |
| 156 |
1 |
0.4 |
0.5 |
| 157 |
2 |
0.8 |
0.9 |
| 158 |
1 |
0.4 |
0.5 |
| 160 |
4 |
1.7 |
1.8 |
| 161 |
1 |
0.4 |
0.5 |
| 162 |
1 |
0.4 |
0.5 |
| 163 |
1 |
0.4 |
0.5 |
| 165 |
1 |
0.4 |
0.5 |
| 166 |
2 |
0.8 |
0.9 |
| 168 |
1 |
0.4 |
0.5 |
| 169 |
1 |
0.4 |
0.5 |
| 170 |
5 |
2.1 |
2.3 |
| 175 |
3 |
1.2 |
1.4 |
| 176 |
1 |
0.4 |
0.5 |
| 177 |
2 |
0.8 |
0.9 |
| 178 |
2 |
0.8 |
0.9 |
| 180 |
4 |
1.7 |
1.8 |
| 182 |
3 |
1.2 |
1.4 |
| 183 |
4 |
1.7 |
1.8 |
| 184 |
2 |
0.8 |
0.9 |
| 185 |
10 |
4.1 |
4.6 |
| 186 |
1 |
0.4 |
0.5 |
| 188 |
1 |
0.4 |
0.5 |
| 189 |
2 |
0.8 |
0.9 |
| 190 |
5 |
2.1 |
2.3 |
| 191 |
1 |
0.4 |
0.5 |
| 192 |
1 |
0.4 |
0.5 |
| 193 |
2 |
0.8 |
0.9 |
| 195 |
3 |
1.2 |
1.4 |
| 196 |
1 |
0.4 |
0.5 |
| 197 |
2 |
0.8 |
0.9 |
| 198 |
1 |
0.4 |
0.5 |
| 199 |
1 |
0.4 |
0.5 |
| 2 |
1 |
0.4 |
0.5 |
| 200 |
6 |
2.5 |
2.8 |
| 205 |
3 |
1.2 |
1.4 |
| 207 |
2 |
0.8 |
0.9 |
| 208 |
2 |
0.8 |
0.9 |
| 209 |
1 |
0.4 |
0.5 |
| 210 |
7 |
2.9 |
3.2 |
| 212 |
3 |
1.2 |
1.4 |
| 213 |
1 |
0.4 |
0.5 |
| 215 |
7 |
2.9 |
3.2 |
| 218 |
3 |
1.2 |
1.4 |
| 220 |
6 |
2.5 |
2.8 |
| 223 |
1 |
0.4 |
0.5 |
| 225 |
4 |
1.7 |
1.8 |
| 230 |
9 |
3.7 |
4.1 |
| 232 |
1 |
0.4 |
0.5 |
| 233 |
2 |
0.8 |
0.9 |
| 234 |
2 |
0.8 |
0.9 |
| 235 |
2 |
0.8 |
0.9 |
| 240 |
6 |
2.5 |
2.8 |
| 241 |
1 |
0.4 |
0.5 |
| 242 |
1 |
0.4 |
0.5 |
| 243 |
1 |
0.4 |
0.5 |
| 245 |
3 |
1.2 |
1.4 |
| 246 |
1 |
0.4 |
0.5 |
| 247 |
3 |
1.2 |
1.4 |
| 250 |
4 |
1.7 |
1.8 |
| 255 |
1 |
0.4 |
0.5 |
| 257 |
1 |
0.4 |
0.5 |
| 260 |
5 |
2.1 |
2.3 |
| 262 |
2 |
0.8 |
0.9 |
| 265 |
1 |
0.4 |
0.5 |
| 266 |
2 |
0.8 |
0.9 |
| 268 |
1 |
0.4 |
0.5 |
| 270 |
1 |
0.4 |
0.5 |
| 271 |
1 |
0.4 |
0.5 |
| 275 |
2 |
0.8 |
0.9 |
| 277 |
1 |
0.4 |
0.5 |
| 280 |
3 |
1.2 |
1.4 |
| 286 |
1 |
0.4 |
0.5 |
| 287 |
1 |
0.4 |
0.5 |
| 295 |
2 |
0.8 |
0.9 |
| 315 |
1 |
0.4 |
0.5 |
| 317 |
1 |
0.4 |
0.5 |
| 326 |
1 |
0.4 |
0.5 |
| 350 |
1 |
0.4 |
0.5 |
| 361 |
1 |
0.4 |
0.5 |
| 365 |
1 |
0.4 |
0.5 |
| 397 |
1 |
0.4 |
0.5 |
| 424 |
1 |
0.4 |
0.5 |
| 74 |
1 |
0.4 |
0.5 |
| NA |
24 |
10.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
f2kgs <- d[,"f2kgs"]
new.d <- data.frame(new.d, f2kgs)
new.d <- apply_labels(new.d, f2kgs = "weight in lbs")
temp.d <- data.frame (new.d, f2kgs)
result<-questionr::freq(temp.d$f2kgs,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "How much do you current weight? (kgs)")
How much do you current weight? (kgs)
| 10 |
1 |
0.4 |
33.3 |
| 55 |
1 |
0.4 |
33.3 |
| 61 |
1 |
0.4 |
33.3 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
F3: Exercise frequency
- F3. How many days per week do you typically get moderate or strenuous exercise (such as heavy lifting, shop work, construction or farm work, home repair, gardening, bowling, golf, jogging, basketball, riding a bike, etc.)?
- 4=5-7 times per week
- 3=3-4 times per week
- 2=1-2 times per week
- 1=Less than once per week/do not exercise
f3 <- as.factor(d[,"f3"])
# Make "*" to NA
f3[which(f3=="*")]<-"NA"
levels(f3) <- list(Per_week_5_7="4",
Per_week_3_4="3",
Per_week_1_2="2",
Per_week_less_1="1")
f3 <- ordered(f3, c("Per_week_5_7","Per_week_3_4","Per_week_1_2","Per_week_less_1"))
new.d <- data.frame(new.d, f3)
new.d <- apply_labels(new.d, f3 = "exercise")
temp.d <- data.frame (new.d, f3)
result<-questionr::freq(temp.d$f3,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F3. How many days per week do you typically get moderate or strenuous exercise")
F3. How many days per week do you typically get moderate or strenuous exercise
| Per_week_5_7 |
29 |
12.0 |
13.2 |
12.0 |
13.2 |
| Per_week_3_4 |
54 |
22.4 |
24.5 |
34.4 |
37.7 |
| Per_week_1_2 |
68 |
28.2 |
30.9 |
62.7 |
68.6 |
| Per_week_less_1 |
69 |
28.6 |
31.4 |
91.3 |
100.0 |
| NA |
21 |
8.7 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
F4: Minutes of exercise
- F4. On those days that you do moderate or strenuous exercise, how many minutes did you typically exercise at this level?
- 2=Less than 30 minutes
- 3=30 minutes – 1 hour
- 4=More than 1 hour
- 1=Do not exercise
f4 <- as.factor(d[,"f4"])
# Make "*" to NA
f4[which(f4=="*")]<-"NA"
levels(f4) <- list(Less_than_30_min="2",
Between_30_min_1_hour="3",
More_than_1_hour="4",
Do_not_exercise="1")
f4 <- ordered(f4, c("Less_than_30_min","Between_30_min_1_hour","More_than_1_hour","Do_not_exercise"))
new.d <- data.frame(new.d, f4)
new.d <- apply_labels(new.d, f4 = "how many minutes exercise")
temp.d <- data.frame (new.d, f4)
result<-questionr::freq(temp.d$f4,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F4")
F4
| Less_than_30_min |
60 |
24.9 |
27.1 |
24.9 |
27.1 |
| Between_30_min_1_hour |
76 |
31.5 |
34.4 |
56.4 |
61.5 |
| More_than_1_hour |
41 |
17.0 |
18.6 |
73.4 |
80.1 |
| Do_not_exercise |
44 |
18.3 |
19.9 |
91.7 |
100.0 |
| NA |
20 |
8.3 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
F5: Drink alcohol frequency
- F5. In the past month, about how often do you have at least one drink of any alcoholic beverage such as beer, wine, a malt beverage, or liquor? One drink is equivalent to a 12 oz beer, a 5 oz glass of wine, or a drink with one shot of liquor.
- 6=Everyday
- 5=5-6 times per week
- 4=3-4 times per week
- 3=1-2 times per week
- 2=Fewer than once per week
- 1=Did not drink
f5 <- as.factor(d[,"f5"])
# Make "*" to NA
f5[which(f5=="*")]<-"NA"
levels(f5) <- list(Everyday="6",
Per_week_5_6_times="5",
Per_week_3_4_times="4",
Per_week_1_2_times="3",
Per_week_fewer_once="2",
Not_drink="1")
f5 <- ordered(f5, c("Everyday","Per_week_5_6_times","Per_week_3_4_times","Per_week_1_2_times","Per_week_fewer_once","Not_drink"))
new.d <- data.frame(new.d, f5)
new.d <- apply_labels(new.d, f5 = "how often drink")
temp.d <- data.frame (new.d, f5)
result<-questionr::freq(temp.d$f5,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f5")
f5
| Everyday |
5 |
2.1 |
2.1 |
2.1 |
2.1 |
| Per_week_5_6_times |
9 |
3.7 |
3.8 |
5.8 |
6.0 |
| Per_week_3_4_times |
34 |
14.1 |
14.5 |
19.9 |
20.4 |
| Per_week_1_2_times |
41 |
17.0 |
17.4 |
36.9 |
37.9 |
| Per_week_fewer_once |
41 |
17.0 |
17.4 |
53.9 |
55.3 |
| Not_drink |
105 |
43.6 |
44.7 |
97.5 |
100.0 |
| NA |
6 |
2.5 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
F6: How many drinks
- F6. When you drank during the past month, how many drinks do you have on a typical occasion?
- 3=3 or more drinks
- 2=1-2 drinks
- 1=Did not drink
f6 <- as.factor(d[,"f6"])
# Make "*" to NA
f6[which(f6=="*")]<-"NA"
levels(f6) <- list(Three_or_more="3",
One_to_two_drinks="2",
Not_drink="1")
f6 <- ordered(f6, c("Three_or_more","One_to_two_drinks","Not_drink"))
new.d <- data.frame(new.d, f6)
new.d <- apply_labels(new.d, f6 = "how many drinks")
temp.d <- data.frame (new.d, f6)
result<-questionr::freq(temp.d$f6,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "f6")
f6
| Three_or_more |
22 |
9.1 |
9.5 |
9.1 |
9.5 |
| One_to_two_drinks |
98 |
40.7 |
42.4 |
49.8 |
51.9 |
| Not_drink |
111 |
46.1 |
48.1 |
95.9 |
100.0 |
| NA |
10 |
4.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
F7: Smoking history
- F7. Have you ever smoked at least 100 cigarettes in your lifetime?
- F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?
- 555 = “Less than 10”
- 777 = “75+”
- F7a. How many cigarettes do you (or did you) usually smoke per day?
- 1=1-5
- 2=6-10
- 3=11-20
- 4=21-30
- 5=31+
- F7b. Have you quit smoking?
- F7BAge. If yes, At what age did you quit?
- 555 = “Less than 10”
- 777 = “75+”
f7 <- as.factor(d[,"f7"])
# Make "*" to NA
f7[which(f7=="*")]<-"NA"
levels(f7) <- list(Yes="2",
No="1")
f7 <- ordered(f7, c("No","Yes"))
new.d <- data.frame(new.d, f7)
new.d <- apply_labels(new.d, f7 = "smoke")
temp.d <- data.frame (new.d, f7)
result<-questionr::freq(temp.d$f7,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F7. Have you ever smoked at least 100 cigarettes in your lifetime?")
F7. Have you ever smoked at least 100 cigarettes in your lifetime?
| No |
120 |
49.8 |
53.3 |
49.8 |
53.3 |
| Yes |
105 |
43.6 |
46.7 |
93.4 |
100.0 |
| NA |
16 |
6.6 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
f7age <- d[,"f7age"]
f7age[which(f7age=="555")]<-"Less_than_10"
f7age[which(f7age=="777")]<-"More_than_75"
new.d <- data.frame(new.d, f7age)
new.d <- apply_labels(new.d, f7age = "age start to smoke")
temp.d <- data.frame (new.d, f7age)
result<-questionr::freq(temp.d$f7age,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?")
F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?
| 12 |
3 |
1.2 |
3.7 |
| 13 |
2 |
0.8 |
2.4 |
| 14 |
7 |
2.9 |
8.5 |
| 15 |
10 |
4.1 |
12.2 |
| 16 |
11 |
4.6 |
13.4 |
| 17 |
6 |
2.5 |
7.3 |
| 18 |
12 |
5.0 |
14.6 |
| 19 |
6 |
2.5 |
7.3 |
| 20 |
6 |
2.5 |
7.3 |
| 21 |
2 |
0.8 |
2.4 |
| 22 |
1 |
0.4 |
1.2 |
| 23 |
1 |
0.4 |
1.2 |
| 25 |
5 |
2.1 |
6.1 |
| 26 |
1 |
0.4 |
1.2 |
| 3 |
1 |
0.4 |
1.2 |
| 30 |
2 |
0.8 |
2.4 |
| 32 |
1 |
0.4 |
1.2 |
| 33 |
1 |
0.4 |
1.2 |
| 4 |
1 |
0.4 |
1.2 |
| 54 |
1 |
0.4 |
1.2 |
| 7 |
1 |
0.4 |
1.2 |
| 70 |
1 |
0.4 |
1.2 |
| NA |
159 |
66.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
f7a <- as.factor(d[,"f7a"])
# Make "*" to NA
f7a[which(f7a=="*")]<-"NA"
levels(f7a) <- list(One_to_five="1",
Six_to_ten="2",
Eleven_to_twenty="3",
Twentyone_to_Thirty="4",
Older_31="5")
f7a <- ordered(f7a, c("One_to_five","Six_to_ten","Eleven_to_twenty","Twentyone_to_Thirty","Older_31"))
new.d <- data.frame(new.d, f7a)
new.d <- apply_labels(new.d, f7a = "How many cigarettes per day")
temp.d <- data.frame (new.d, f7a)
result<-questionr::freq(temp.d$f7a,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F7a. How many cigarettes do you (or did you) usually smoke per day?")
F7a. How many cigarettes do you (or did you) usually smoke per day?
| One_to_five |
34 |
14.1 |
30.6 |
14.1 |
30.6 |
| Six_to_ten |
31 |
12.9 |
27.9 |
27.0 |
58.6 |
| Eleven_to_twenty |
36 |
14.9 |
32.4 |
41.9 |
91.0 |
| Twentyone_to_Thirty |
9 |
3.7 |
8.1 |
45.6 |
99.1 |
| Older_31 |
1 |
0.4 |
0.9 |
46.1 |
100.0 |
| NA |
130 |
53.9 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
f7b <- as.factor(d[,"f7b"])
# Make "*" to NA
f7b[which(f7b=="*")]<-"NA"
levels(f7b) <- list(No="1",
Yes="2")
new.d <- data.frame(new.d, f7b)
new.d <- apply_labels(new.d, f7b = "quit smoking")
temp.d <- data.frame (new.d, f7b)
result<-questionr::freq(temp.d$f7b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F7b. Have you quit smoking?")
F7b. Have you quit smoking?
| No |
31 |
12.9 |
28.7 |
| Yes |
77 |
32.0 |
71.3 |
| NA |
133 |
55.2 |
NA |
| Total |
241 |
100.0 |
100.0 |
f7bage <- d[,"f7bage"]
f7bage[which(f7bage=="555")]<-"Less_than_10"
f7bage[which(f7bage=="777")]<-"More_than_75"
new.d <- data.frame(new.d, f7bage)
new.d <- apply_labels(new.d, f7bage = "age quit smoking")
temp.d <- data.frame (new.d, f7bage)
result<-questionr::freq(temp.d$f7bage,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "F7BAge. If yes, At what age did you quit?")
F7BAge. If yes, At what age did you quit?
| 1 |
1 |
0.4 |
1.4 |
| 23 |
2 |
0.8 |
2.7 |
| 24 |
1 |
0.4 |
1.4 |
| 25 |
2 |
0.8 |
2.7 |
| 26 |
2 |
0.8 |
2.7 |
| 27 |
1 |
0.4 |
1.4 |
| 28 |
2 |
0.8 |
2.7 |
| 30 |
8 |
3.3 |
10.8 |
| 32 |
2 |
0.8 |
2.7 |
| 35 |
2 |
0.8 |
2.7 |
| 38 |
2 |
0.8 |
2.7 |
| 40 |
3 |
1.2 |
4.1 |
| 41 |
1 |
0.4 |
1.4 |
| 43 |
2 |
0.8 |
2.7 |
| 44 |
1 |
0.4 |
1.4 |
| 45 |
5 |
2.1 |
6.8 |
| 46 |
2 |
0.8 |
2.7 |
| 49 |
1 |
0.4 |
1.4 |
| 50 |
6 |
2.5 |
8.1 |
| 55 |
7 |
2.9 |
9.5 |
| 56 |
2 |
0.8 |
2.7 |
| 57 |
1 |
0.4 |
1.4 |
| 58 |
1 |
0.4 |
1.4 |
| 59 |
1 |
0.4 |
1.4 |
| 60 |
1 |
0.4 |
1.4 |
| 61 |
2 |
0.8 |
2.7 |
| 62 |
2 |
0.8 |
2.7 |
| 63 |
2 |
0.8 |
2.7 |
| 65 |
2 |
0.8 |
2.7 |
| 66 |
1 |
0.4 |
1.4 |
| 68 |
2 |
0.8 |
2.7 |
| 69 |
2 |
0.8 |
2.7 |
| 71 |
1 |
0.4 |
1.4 |
| 78 |
1 |
0.4 |
1.4 |
| NA |
167 |
69.3 |
NA |
| Total |
241 |
100.0 |
100.0 |
G1: Marital status
- G1. What is your current marital status?
- 1=Married, or living with a partner
- 2=Separated
- 3=Divorced
- 4=Widowed
- 5=Never Married
g1 <- as.factor(d[,"g1"])
# Make "*" to NA
g1[which(g1=="*")]<-"NA"
levels(g1) <- list(Married_partner="1",
Separated="2",
Divorced="3",
Widowed="4",
Never_Married="5")
g1 <- ordered(g1, c("Married_partner","Separated","Divorced","Widowed","Never_Married"))
new.d <- data.frame(new.d, g1)
new.d <- apply_labels(new.d, g1 = "marital status")
temp.d <- data.frame (new.d, g1)
result<-questionr::freq(temp.d$g1,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "g1")
g1
| Married_partner |
121 |
50.2 |
51.7 |
50.2 |
51.7 |
| Separated |
15 |
6.2 |
6.4 |
56.4 |
58.1 |
| Divorced |
37 |
15.4 |
15.8 |
71.8 |
73.9 |
| Widowed |
13 |
5.4 |
5.6 |
77.2 |
79.5 |
| Never_Married |
48 |
19.9 |
20.5 |
97.1 |
100.0 |
| NA |
7 |
2.9 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
G2: With whom do you live
- G2. With whom do you live? Mark all that apply.
- G2_1: 1=Live alone
- G2_2: 1=A spouse or partner
- G2_3: 1=Other family
- G2_4: 1=Other people (non-family)
- G2_5: 1=Pets
g2_1 <- as.factor(d[,"g2_1"])
levels(g2_1) <- list(Live_alone="1")
new.d <- data.frame(new.d, g2_1)
new.d <- apply_labels(new.d, g2_1 = "Live alone")
temp.d <- data.frame (new.d, g2_1)
result<-questionr::freq(temp.d$g2_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g2_1: Live alone")
g2_1: Live alone
| Live_alone |
62 |
25.7 |
100 |
| NA |
179 |
74.3 |
NA |
| Total |
241 |
100.0 |
100 |
g2_2 <- as.factor(d[,"g2_2"])
levels(g2_2) <- list(spouse_partner="1")
new.d <- data.frame(new.d, g2_2)
new.d <- apply_labels(new.d, g2_2 = "A spouse or partner")
temp.d <- data.frame (new.d, g2_2)
result<-questionr::freq(temp.d$g2_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g2_2: A spouse or partner")
g2_2: A spouse or partner
| spouse_partner |
135 |
56 |
100 |
| NA |
106 |
44 |
NA |
| Total |
241 |
100 |
100 |
g2_3 <- as.factor(d[,"g2_3"])
levels(g2_3) <- list(Other_family="1")
new.d <- data.frame(new.d, g2_3)
new.d <- apply_labels(new.d, g2_3 = "Other family")
temp.d <- data.frame (new.d, g2_3)
result<-questionr::freq(temp.d$g2_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g2_3: Other family")
g2_3: Other family
| Other_family |
41 |
17 |
100 |
| NA |
200 |
83 |
NA |
| Total |
241 |
100 |
100 |
g2_4 <- as.factor(d[,"g2_4"])
levels(g2_4) <- list(Other_non_family="1")
new.d <- data.frame(new.d, g2_4)
new.d <- apply_labels(new.d, g2_4 = "Other people (non-family)")
temp.d <- data.frame (new.d, g2_4)
result<-questionr::freq(temp.d$g2_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g2_4: Other people (non-family)")
g2_4: Other people (non-family)
| Other_non_family |
10 |
4.1 |
100 |
| NA |
231 |
95.9 |
NA |
| Total |
241 |
100.0 |
100 |
g2_5 <- as.factor(d[,"g2_5"])
levels(g2_5) <- list(Pets="1")
new.d <- data.frame(new.d, g2_5)
new.d <- apply_labels(new.d, g2_5 = "Pets")
temp.d <- data.frame (new.d, g2_5)
result<-questionr::freq(temp.d$g2_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g2_5: Pets")
g2_5: Pets
| Pets |
13 |
5.4 |
100 |
| NA |
228 |
94.6 |
NA |
| Total |
241 |
100.0 |
100 |
G3: Identify yourself
- G3. How do you identify yourself?
- 1=Straight/heterosexual
- 2=Bisexual
- 3=Gay/homosexual/same gender loving
- 4=Other
- 99=Prefer not to answer
g3 <- as.factor(d[,"g3"])
# Make "*" to NA
g3[which(g3=="*")]<-"NA"
levels(g3) <- list(heterosexual="1",
Bisexual="2",
homosexual="3",
Other="4",
Prefer_not_to_answer="99")
g3 <- ordered(g3, c("heterosexual","Bisexual","homosexual","Other","Prefer_not_to_answer"))
new.d <- data.frame(new.d, g3)
new.d <- apply_labels(new.d, g3 = "identify yourself")
temp.d <- data.frame (new.d, g3)
result<-questionr::freq(temp.d$g3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g3")
g3
| heterosexual |
222 |
92.1 |
96.9 |
| Bisexual |
0 |
0.0 |
0.0 |
| homosexual |
3 |
1.2 |
1.3 |
| Other |
0 |
0.0 |
0.0 |
| Prefer_not_to_answer |
4 |
1.7 |
1.7 |
| NA |
12 |
5.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
G3 Other: Identify yourself
g3other <- d[,"g3other"]
new.d <- data.frame(new.d, g3other)
new.d <- apply_labels(new.d, g3other = "g3other")
temp.d <- data.frame (new.d, g3other)
result<-questionr::freq(temp.d$g3other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G3 Other")
G3 Other
| Normal man |
1 |
0.4 |
33.3 |
| Not gay thank God. |
1 |
0.4 |
33.3 |
| With a woman |
1 |
0.4 |
33.3 |
| NA |
238 |
98.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
G4: Education
- G4. What is the HIGHEST level of education you, your father, and your mother have completed?
- 1=Grade school or less
- 2=Some high school
- 3=High school graduate or GED
- 4=Vocational school
- 5=Some college
- 6=Associate’s degree
- 7=College graduate (Bachelor’s degree)
- 8=Some graduate education
- 9=Graduate degree
- 88=Don’t know
g4a <- as.factor(d[,"g4a"])
# Make "*" to NA
g4a[which(g4a=="*")]<-"NA"
levels(g4a) <- list(Grade_school_or_less="1",
Some_high_school="2",
High_school_graduate_GED="3",
Vocational_school="4",
Some_college="5",
Associate_degree="6",
College_graduate="7",
Some_graduate_education="8",
Graduate_degree="9")
g4a <- ordered(g4a, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree"))
new.d <- data.frame(new.d, g4a)
new.d <- apply_labels(new.d, g4a = "education")
temp.d <- data.frame (new.d, g4a)
result<-questionr::freq(temp.d$g4a,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g4a: You")
g4a: You
| Grade_school_or_less |
6 |
2.5 |
2.7 |
| Some_high_school |
24 |
10.0 |
10.7 |
| High_school_graduate_GED |
67 |
27.8 |
29.8 |
| Vocational_school |
6 |
2.5 |
2.7 |
| Some_college |
53 |
22.0 |
23.6 |
| Associate_degree |
22 |
9.1 |
9.8 |
| College_graduate |
20 |
8.3 |
8.9 |
| Some_graduate_education |
6 |
2.5 |
2.7 |
| Graduate_degree |
21 |
8.7 |
9.3 |
| NA |
16 |
6.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
g4b <- as.factor(d[,"g4b"])
# Make "*" to NA
g4b[which(g4b=="*")]<-"NA"
levels(g4b) <- list(Grade_school_or_less="1",
Some_high_school="2",
High_school_graduate_GED="3",
Vocational_school="4",
Some_college="5",
Associate_degree="6",
College_graduate="7",
Some_graduate_education="8",
Graduate_degree="9",
Dont_know="88")
g4b <- ordered(g4b, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree","Dont_know"))
new.d <- data.frame(new.d, g4b)
new.d <- apply_labels(new.d, g4b = "education-father")
temp.d <- data.frame (new.d, g4b)
result<-questionr::freq(temp.d$g4b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g4b: Your father")
g4b: Your father
| Grade_school_or_less |
38 |
15.8 |
19.2 |
| Some_high_school |
36 |
14.9 |
18.2 |
| High_school_graduate_GED |
56 |
23.2 |
28.3 |
| Vocational_school |
4 |
1.7 |
2.0 |
| Some_college |
6 |
2.5 |
3.0 |
| Associate_degree |
2 |
0.8 |
1.0 |
| College_graduate |
3 |
1.2 |
1.5 |
| Some_graduate_education |
0 |
0.0 |
0.0 |
| Graduate_degree |
4 |
1.7 |
2.0 |
| Dont_know |
49 |
20.3 |
24.7 |
| NA |
43 |
17.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
g4c <- as.factor(d[,"g4c"])
# Make "*" to NA
g4c[which(g4c=="*")]<-"NA"
levels(g4c) <- list(Grade_school_or_less="1",
Some_high_school="2",
High_school_graduate_GED="3",
Vocational_school="4",
Some_college="5",
Associate_degree="6",
College_graduate="7",
Some_graduate_education="8",
Graduate_degree="9",
Dont_know="88")
g4c <- ordered(g4c, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree","Dont_know"))
new.d <- data.frame(new.d, g4c)
new.d <- apply_labels(new.d, g4c = "education-mother")
temp.d <- data.frame (new.d, g4c)
result<-questionr::freq(temp.d$g4c,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g4c: Your mother")
g4c: Your mother
| Grade_school_or_less |
27 |
11.2 |
13.6 |
| Some_high_school |
30 |
12.4 |
15.1 |
| High_school_graduate_GED |
76 |
31.5 |
38.2 |
| Vocational_school |
4 |
1.7 |
2.0 |
| Some_college |
7 |
2.9 |
3.5 |
| Associate_degree |
4 |
1.7 |
2.0 |
| College_graduate |
7 |
2.9 |
3.5 |
| Some_graduate_education |
1 |
0.4 |
0.5 |
| Graduate_degree |
5 |
2.1 |
2.5 |
| Dont_know |
38 |
15.8 |
19.1 |
| NA |
42 |
17.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
G5: Job
- G5. Which one of the following best describes what you currently do?
- 1=Currently working full-time
- 2=Currently working part-time
- 3=Looking for work, unemployed
- 4=Retired
- 5=On disability permanently
- 6=On disability for a period of time (on sick leave or paternity leave or disability leave for other reasons)
- 7=Volunteer work/work without pay
- 8=Other
g5 <- as.factor(d[,"g5"])
# Make "*" to NA
g5[which(g5=="*")]<-"NA"
levels(g5) <- list(full_time="1",
part_time="2",
unemployed="3",
Retired="4",
disability_permanently="5",
disability_for_a_time="6",
Volunteer_work="7",
Other="8")
g5 <- ordered(g5, c("full_time","part_time","unemployed","Retired","disability_permanently","disability_for_a_time", "Volunteer_work","Other"))
new.d <- data.frame(new.d, g5)
new.d <- apply_labels(new.d, g5 = "job")
temp.d <- data.frame (new.d, g5)
result<-questionr::freq(temp.d$g5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g5")
g5
| full_time |
27 |
11.2 |
12.0 |
| part_time |
12 |
5.0 |
5.3 |
| unemployed |
6 |
2.5 |
2.7 |
| Retired |
116 |
48.1 |
51.6 |
| disability_permanently |
54 |
22.4 |
24.0 |
| disability_for_a_time |
5 |
2.1 |
2.2 |
| Volunteer_work |
1 |
0.4 |
0.4 |
| Other |
4 |
1.7 |
1.8 |
| NA |
16 |
6.6 |
NA |
| Total |
241 |
100.0 |
100.0 |
G5 Other: job
g5other <- d[,"g5other"]
new.d <- data.frame(new.d, g5other)
new.d <- apply_labels(new.d, g5other = "g5other")
temp.d <- data.frame (new.d, g5other)
result<-questionr::freq(temp.d$g5other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G5 Other")
G5 Other
| Corona virus shut down |
1 |
0.4 |
10 |
| Do help my daughter with cleaning offices. |
1 |
0.4 |
10 |
| Pandemic furlough since 3-2020. |
1 |
0.4 |
10 |
| Part time business owner of ACN. |
1 |
0.4 |
10 |
| Retired but would love to work. |
1 |
0.4 |
10 |
| Seeking disability. |
1 |
0.4 |
10 |
| Self employed |
1 |
0.4 |
10 |
| Self employed martial arts instructor —- |
1 |
0.4 |
10 |
| Self-employed (caterer). |
1 |
0.4 |
10 |
| SSI |
1 |
0.4 |
10 |
| NA |
231 |
95.9 |
NA |
| Total |
241 |
100.0 |
100 |
G6: Health insurance
- G6. What kind of health insurance or health care coverage do you currently have? Mark all that apply.
- G6_1: 1=Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)
- G6_2: 1=Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)
- G6_3: 1=Insurance purchased directly from an insurance company (by you or another family member)
- G6_4: 1=Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)
- G6_5: 1= Medicaid or other state provided insurance
- G6_6: 1=Medicare/government insurance
- G6_7: 1=VA/Military Facility (including those who have ever used or enrolled for VA health care)
- G6_8: 1=I do not have any medical insurance
g6_1 <- as.factor(d[,"g6_1"])
levels(g6_1) <- list(Insurance_employer="1")
new.d <- data.frame(new.d, g6_1)
new.d <- apply_labels(new.d, g6_1 = "Insurance_employer")
temp.d <- data.frame (new.d, g6_1)
result<-questionr::freq(temp.d$g6_1,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_1. Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)")
G6_1. Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)
| Insurance_employer |
78 |
32.4 |
100 |
| NA |
163 |
67.6 |
NA |
| Total |
241 |
100.0 |
100 |
g6_2 <- as.factor(d[,"g6_2"])
levels(g6_2) <- list(Insurance_family="1")
new.d <- data.frame(new.d, g6_2)
new.d <- apply_labels(new.d, g6_2 = "Insurance_family")
temp.d <- data.frame (new.d, g6_2)
result<-questionr::freq(temp.d$g6_2,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_2. Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)")
G6_2. Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)
| Insurance_family |
29 |
12 |
100 |
| NA |
212 |
88 |
NA |
| Total |
241 |
100 |
100 |
g6_3 <- as.factor(d[,"g6_3"])
levels(g6_3) <- list(Insurance_insurance_company="1")
new.d <- data.frame(new.d, g6_3)
new.d <- apply_labels(new.d, g6_3 = "Insurance_insurance_company")
temp.d <- data.frame (new.d, g6_3)
result<-questionr::freq(temp.d$g6_3,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_3. Insurance purchased directly from an insurance company (by you or another family member)")
G6_3. Insurance purchased directly from an insurance company (by you or another family member)
| Insurance_insurance_company |
13 |
5.4 |
100 |
| NA |
228 |
94.6 |
NA |
| Total |
241 |
100.0 |
100 |
g6_4 <- as.factor(d[,"g6_4"])
levels(g6_4) <- list(Insurance_exchange="1")
new.d <- data.frame(new.d, g6_4)
new.d <- apply_labels(new.d, g6_4 = "Insurance_exchange")
temp.d <- data.frame (new.d, g6_4)
result<-questionr::freq(temp.d$g6_4,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_4. Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)")
G6_4. Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)
| Insurance_exchange |
8 |
3.3 |
100 |
| NA |
233 |
96.7 |
NA |
| Total |
241 |
100.0 |
100 |
g6_5 <- as.factor(d[,"g6_5"])
levels(g6_5) <- list(Medicaid_state="1")
new.d <- data.frame(new.d, g6_5)
new.d <- apply_labels(new.d, g6_5 = "Medicaid_state")
temp.d <- data.frame (new.d, g6_5)
result<-questionr::freq(temp.d$g6_5,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_5. Medicaid or other state provided insurance")
G6_5. Medicaid or other state provided insurance
| Medicaid_state |
70 |
29 |
100 |
| NA |
171 |
71 |
NA |
| Total |
241 |
100 |
100 |
g6_6 <- as.factor(d[,"g6_6"])
levels(g6_6) <- list(Medicare_government="1")
new.d <- data.frame(new.d, g6_6)
new.d <- apply_labels(new.d, g6_6 = "Medicare_government")
temp.d <- data.frame (new.d, g6_6)
result<-questionr::freq(temp.d$g6_6,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_6. Medicare/government insurance")
G6_6. Medicare/government insurance
| Medicare_government |
107 |
44.4 |
100 |
| NA |
134 |
55.6 |
NA |
| Total |
241 |
100.0 |
100 |
g6_7 <- as.factor(d[,"g6_7"])
levels(g6_7) <- list(VA_Military="1")
new.d <- data.frame(new.d, g6_7)
new.d <- apply_labels(new.d, g6_7 = "VA_Military")
temp.d <- data.frame (new.d, g6_7)
result<-questionr::freq(temp.d$g6_7,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_7. VA/Military Facility (including those who have ever used or enrolled for VA health care)")
G6_7. VA/Military Facility (including those who have ever used or enrolled for VA health care)
| VA_Military |
15 |
6.2 |
100 |
| NA |
226 |
93.8 |
NA |
| Total |
241 |
100.0 |
100 |
g6_8 <- as.factor(d[,"g6_8"])
levels(g6_8) <- list(Do_not_have="1")
new.d <- data.frame(new.d, g6_8)
new.d <- apply_labels(new.d, g6_8 = "Do_not_have")
temp.d <- data.frame (new.d, g6_8)
result<-questionr::freq(temp.d$g6_8,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G6_8. I do not have any medical insurance")
G6_8. I do not have any medical insurance
| Do_not_have |
1 |
0.4 |
100 |
| NA |
240 |
99.6 |
NA |
| Total |
241 |
100.0 |
100 |
G7: Income
- G7. What is your best estimate of your TOTAL FAMILY INCOME from all sources, before taxes, in the last calendar year? “Total family income” refers to your income PLUS the income of all family members living in this household (including cohabiting partners, and armed forces members living at home). This includes money from pay checks, government benefit programs, child support, social security, retirement funds, unemployment benefits, and disability.
- 1=Less than $15,000
- 2=$15,000 to $35,999
- 3=$36,000 to $45,999
- 4=$46,000 to $65,999
- 5=$66,000 to $99,999
- 6=$100,000 to $149,999
- 7=$150,000 to $199,999
- 8= $200,000 or more
g7 <- as.factor(d[,"g7"])
# Make "*" to NA
g7[which(g7=="*")]<-"NA"
levels(g7) <- list(Less_than_15000="1",
Between_15000_35999="2",
Between_36000_45999="3",
Between_46000_65999="4",
Between_66000_99999="5",
Between_100000_149999= "6",
Between_150000_199999="7",
More_than_200000="8")
g7 <- ordered(g7, c("Less_than_15000","Between_15000_35999","Between_36000_45999","Between_46000_65999","Between_66000_99999","Between_100000_149999", "Between_150000_199999","More_than_200000"))
new.d <- data.frame(new.d, g7)
new.d <- apply_labels(new.d, g7 = "income")
temp.d <- data.frame (new.d, g7)
result<-questionr::freq(temp.d$g7,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g7")
g7
| Less_than_15000 |
61 |
25.3 |
28.2 |
25.3 |
28.2 |
| Between_15000_35999 |
36 |
14.9 |
16.7 |
40.2 |
44.9 |
| Between_36000_45999 |
20 |
8.3 |
9.3 |
48.5 |
54.2 |
| Between_46000_65999 |
41 |
17.0 |
19.0 |
65.6 |
73.1 |
| Between_66000_99999 |
31 |
12.9 |
14.4 |
78.4 |
87.5 |
| Between_100000_149999 |
20 |
8.3 |
9.3 |
86.7 |
96.8 |
| Between_150000_199999 |
1 |
0.4 |
0.5 |
87.1 |
97.2 |
| More_than_200000 |
6 |
2.5 |
2.8 |
89.6 |
100.0 |
| NA |
25 |
10.4 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
G8: # people supported by income
- G8. In the last calendar year, how many people, including yourself, were supported by your family income?
- 1=1
- 2=2
- 3=3
- 4=4
- 5=5 or more
g8 <- as.factor(d[,"g8"])
# Make "*" to NA
g8[which(g8=="*")]<-"NA"
levels(g8) <- list(One="1",
Two="2",
Three="3",
Four="4",
Five_or_more="5")
g8 <- ordered(g8, c("One","Two","Three","Four","Five_or_more"))
new.d <- data.frame(new.d, g8)
new.d <- apply_labels(new.d, g8 = "people supported by income")
temp.d <- data.frame (new.d, g8)
result<-questionr::freq(temp.d$g8,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g8")
g8
| One |
100 |
41.5 |
44.1 |
41.5 |
44.1 |
| Two |
85 |
35.3 |
37.4 |
76.8 |
81.5 |
| Three |
19 |
7.9 |
8.4 |
84.6 |
89.9 |
| Four |
16 |
6.6 |
7.0 |
91.3 |
96.9 |
| Five_or_more |
7 |
2.9 |
3.1 |
94.2 |
100.0 |
| NA |
14 |
5.8 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
G9: Worry about finance
- G9. How worried were you or your family about being able to pay your normal monthly bills, including rent, mortgage, and/or other costs:
- During young adult life (up to age 30):
- Age 31 (up to just before prostate cancer diagnosis):
- Current (from prostate cancer diagnosis to present):
- 1=Not at all worried
- 2=A little worried
- 3=Somewhat worried
- 4=Very worried
g9a <- as.factor(d[,"g9a"])
# Make "*" to NA
g9a[which(g9a=="*")]<-"NA"
levels(g9a) <- list(Not_worried="1",
A_little_worried="2",
Somewhat_worried="3",
Very_worried="4")
new.d <- data.frame(new.d, g9a)
new.d <- apply_labels(new.d, g9a = "young adult life")
temp.d <- data.frame (new.d, g9a)
result<-questionr::freq(temp.d$g9a,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "a. During young adult life (up to age 30)")
a. During young adult life (up to age 30)
| Not_worried |
116 |
48.1 |
50.0 |
| A_little_worried |
58 |
24.1 |
25.0 |
| Somewhat_worried |
43 |
17.8 |
18.5 |
| Very_worried |
15 |
6.2 |
6.5 |
| NA |
9 |
3.7 |
NA |
| Total |
241 |
100.0 |
100.0 |
g9b <- as.factor(d[,"g9b"])
# Make "*" to NA
g9b[which(g9b=="*")]<-"NA"
levels(g9b) <- list(Not_worried="1",
A_little_worried="2",
Somewhat_worried="3",
Very_worried="4")
new.d <- data.frame(new.d, g9b)
new.d <- apply_labels(new.d, g9b = "age 31 up to before dx")
temp.d <- data.frame (new.d, g9b)
result<-questionr::freq(temp.d$g9b,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "b. Age 31 (up to just before prostate cancer diagnosis)")
b. Age 31 (up to just before prostate cancer diagnosis)
| Not_worried |
125 |
51.9 |
56.1 |
| A_little_worried |
54 |
22.4 |
24.2 |
| Somewhat_worried |
30 |
12.4 |
13.5 |
| Very_worried |
14 |
5.8 |
6.3 |
| NA |
18 |
7.5 |
NA |
| Total |
241 |
100.0 |
100.0 |
g9c <- as.factor(d[,"g9c"])
# Make "*" to NA
g9c[which(g9c=="*")]<-"NA"
levels(g9c) <- list(Not_worried="1",
A_little_worried="2",
Somewhat_worried="3",
Very_worried="4")
new.d <- data.frame(new.d, g9c)
new.d <- apply_labels(new.d, g9c = "current")
temp.d <- data.frame (new.d, g9c)
result<-questionr::freq(temp.d$g9c,total = TRUE)
kable(result, format = "simple", align = 'l', caption = "c. Current (from prostate cancer diagnosis to present)")
c. Current (from prostate cancer diagnosis to present)
| Not_worried |
122 |
50.6 |
53.7 |
| A_little_worried |
50 |
20.7 |
22.0 |
| Somewhat_worried |
30 |
12.4 |
13.2 |
| Very_worried |
25 |
10.4 |
11.0 |
| NA |
14 |
5.8 |
NA |
| Total |
241 |
100.0 |
100.0 |
G10:Own or rent a house
- G10. Is the home you live in:
- 1=Owned or being bought by you (or someone in the household)?
- 2=Rented for money?
- 3=Other
g10 <- as.factor(d[,"g10"])
# Make "*" to NA
g10[which(g10=="*")]<-"NA"
levels(g10) <- list(Owned="1",
Rented="2",
Other="3")
g10 <- ordered(g10, c("Owned","Rented","Other"))
new.d <- data.frame(new.d, g10)
new.d <- apply_labels(new.d, g10 = "Own or rent a house")
temp.d <- data.frame (new.d, g10)
result<-questionr::freq(temp.d$g10,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g10")
g10
| Owned |
146 |
60.6 |
64.9 |
60.6 |
64.9 |
| Rented |
67 |
27.8 |
29.8 |
88.4 |
94.7 |
| Other |
12 |
5.0 |
5.3 |
93.4 |
100.0 |
| NA |
16 |
6.6 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
G10 Other: Own or rent a house
g10other <- d[,"g10other"]
new.d <- data.frame(new.d, g10other)
new.d <- apply_labels(new.d, g10other = "g10other")
temp.d <- data.frame (new.d, g10other)
result<-questionr::freq(temp.d$g10other, total = TRUE)
kable(result, format = "simple", align = 'l', caption = "G10 Other")
G10 Other
| Apartment |
1 |
0.4 |
6.2 |
| Apartment. |
1 |
0.4 |
6.2 |
| Foreclosure. |
1 |
0.4 |
6.2 |
| His house |
1 |
0.4 |
6.2 |
| House fire necessitated a rental home till home is repaired. |
1 |
0.4 |
6.2 |
| I rent a furnished room and kitchen priv. |
1 |
0.4 |
6.2 |
| Live in low income. |
1 |
0.4 |
6.2 |
| My sister’s house. |
1 |
0.4 |
6.2 |
| Nursing home |
1 |
0.4 |
6.2 |
| Paid for |
1 |
0.4 |
6.2 |
| Rent |
1 |
0.4 |
6.2 |
| Reverse mortgage |
1 |
0.4 |
6.2 |
| Senior Public Housing |
1 |
0.4 |
6.2 |
| Sisters house |
1 |
0.4 |
6.2 |
| Squatted. |
1 |
0.4 |
6.2 |
| Staying with a friend. |
1 |
0.4 |
6.2 |
| NA |
225 |
93.4 |
NA |
| Total |
241 |
100.0 |
100.0 |
G11:Lose current sources
- G11. If you lost all your current source(s) of household income (your paycheck, public assistance, or other forms of income), how long could you continue to live at your current address and standard of living?
- 1=Less than 1 month
- 2=1 to 2 months
- 3=3 to 6 months
- 4=More than 6 months
g11 <- as.factor(d[,"g11"])
# Make "*" to NA
g11[which(g11=="*")]<-"NA"
levels(g11) <- list(Less_than_1_month="1",
One_to_two_month="2",
Three_to_six_month="3",
More_than_6_months="4")
g11 <- ordered(g11, c("Less_than_1_month","One_to_two_month","Three_to_six_month","More_than_6_months"))
new.d <- data.frame(new.d, g11)
new.d <- apply_labels(new.d, g11 = "ose current sources")
temp.d <- data.frame (new.d, g11)
result<-questionr::freq(temp.d$g11,cum=TRUE,total = TRUE)
kable(result, format = "simple", align = 'l', caption = " g11")
g11
| Less_than_1_month |
48 |
19.9 |
21.9 |
19.9 |
21.9 |
| One_to_two_month |
49 |
20.3 |
22.4 |
40.2 |
44.3 |
| Three_to_six_month |
44 |
18.3 |
20.1 |
58.5 |
64.4 |
| More_than_6_months |
78 |
32.4 |
35.6 |
90.9 |
100.0 |
| NA |
22 |
9.1 |
NA |
100.0 |
NA |
| Total |
241 |
100.0 |
100.0 |
100.0 |
100.0 |
G12: Today’s date
- G12. Please enter today’s date.
g12 <- as.Date(d[ , "g12"], format="%m/%d/%y")
new.d <- data.frame(new.d, g12)
new.d <- apply_labels(new.d, g12 = "today’s date")
#temp.d <- data.frame (new.d.1, g12)
summarytools::view(dfSummary(new.d$g12, style = 'grid',
max.distinct.values = 5, plain.ascii = FALSE, valid.col = FALSE, headings = FALSE), method = "render")
| No |
Variable |
Label |
Stats / Values |
Freqs (% of Valid) |
Graph |
Missing |
| 1 |
g12
[labelled, Date] |
today’s date |
| min : 2019-08-06 | | med : 2020-05-29 | | max : 2020-12-28 | | range : 1y 4m 22d |
|
154 distinct values |
 |
2
(0.8%) |
Generated by summarytools 1.0.0 (R version 3.6.3)
2021-12-09